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Summary 

A  means  of  creating  an  editor  which  allows  its  users  to  extend  the 
classes  of  objects  manipulated  by  it  is  described.  This  has  been 
achieved  by  creating  an  abstract  structure  representing  object 
classes.  An  example  of  such  an  editor  has  been  implemented  on  Perq 
Flex  making  use  of  true  procedure  values. 
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§  1  Introduction 


This  paper  is  concerned  with  the  definition  and  implementation  of 
documents  on  computers.  Documents  are  objects  consisting  of  data 
together  with  a  visual  image  of  that  data,  dispiayable  on  a  screen. 
Documents  can  be  stored  on  backing  store,  edited  or  read  by 
programs. 

The  objects,  from  which  documents  are  constructed,  can  be  divided 
into  classes.  For  example,  there  is  the  class  of  lines  of  text,  and 
there  is  the  class  of  paragraphs.  Most  implementations  of  documents 
have  the  ability  to  include,  as  part  of  the  document,  objects  from  a 
predetermined  set  of  object  classes.  Whilst  documents  are  designed 
to  include  only  a  predetermined  set  of  object  classes,  there  will 
always  be  objects  that  users  would  like  to  include  in  documents  which 
are  not  included  in  the  implementation.  To  overcome  this  problem  this 
paper  provides  an  implementation  of  documents  which  allows  users  to 
define  their  own  object  classes  and  include  them  within  the 
document . 


Once  such  a  document  has  been  designed  it  is  possible  to  start  with  a 
small  set  of  object  classes  included  in  the  implementation :  other 
classes  can  be  added  by  means  of  user-defined  objects.  The  entire 
contents  of  a  document  can  be  thought  of  as  an  object,  which  may  be 
constructed  from  smaller  objects.  It  is  possible  to  design  a  document 
which  implements  only  user-defined  classes,  with  the  entire  contents 
of  the  document  being  expressed  as  a  user-defined  object.  Some 
object  classes  are  so  commonly  used  they  can  be  included  in  the 
implementation  of  the  document.  A  document  which  does  not  contain 
any  user-defined  objects  is  called  a  basic  document. 


Basic  documents  have  been  implemented  on  the  Flex  operating  system 
on  the  ICL  Perq  [Currie,  Foster  and  Edwards  1983,  1985].  The  details 
of  this  are  given  in  sections  3. 

There  are  operations  that  are  applied  to  documents.  For  example, 
documents  can  be  displayed  on  screens,  edited  and  coded  for  storage 
on  hard  disc  or  floppy  disc.  If  a  document  containing  a  user-defined 
object  is  to  be  displayed  on  a  screen,  then  there  must  be  associated 
with  the  user-defined  object  a  means  of  displaying  it  on  the  screen. 
Similarly,  if  a  user-defined  object  is  to  be  edited  then  there  needs 
to  be  a  means  of  editing  it.  For  every  operation  that  can  be  applied  to 
a  document  there  is  a  corresponding  operation  that  can  be  applied  to 
user-defined  objects.  This  defines  the  objects  that  can  be  included 
in  documents. 
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This  paper  defines  an  abstract  structure  for  object  classes  which  are 
to  be  included  in  documents.  Any  object  class  which  is  an  example  of 
this  abstract  structure  can  be  included  in  the  basic  document.  The 
structure  consists  of  a  class  of  data,  and  a  set  of  operations  to 
apply  to  the  data  class. 

The  Flex  implementation  of  the  basic  document  is  written  in  Algol68. 
Graphical  objects  in  the  document  must  be  specified  in  terms  of 
Algol68.  To  accommodate  this  restriction  the  abstract  structure  of 
the  graphical  block  is  modelled  in  AIgol68.  The  data  of  the  object 
class  are  represented  by  values  of  an  Algo  168  type  and  the  operations 
on  the  object  class  are  represented  by  Algol68  procedures  applicable 
to  the  Algol68  type  of  the  data  class. 

The  Algol68  model  of  the  abstract  structure  is  discussed  in  more 
detail  in  section  >t. 

The  Flex  implementation  of  documents  provides  a  means  of  defining  an 
object  class  and  including  objects  of  that  class  in  documents.  This  is 
described  in  sections  5  and  6. 

Section  8  gives  a  detailed  description  of  the  operations  that  can  be 
applied  to  a  class  of  objects  included  in  a  document,  and  this 
description  is  illustrated  with  an  example,  given  in  section  7.  The 
more  complex  example  of  a  simple  structure  editor  is  given  in  section 
10. 


An  important  aspect  of  the  graphical  objects  discussed  in  this  paper 
is  their  ability  to  be  defined  recursively  in  terms  of  other  graphical 
objects.  Section  9  gives  details  of  how  to  construct  graphical 
objects  from  other  graphical  objects. 
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§  2  Notation  and  the  use  of  Flex 


Much  of  the  description  of  the  abstract  structure  of  objects  included 
in  documents  is  expressed  in  Aigo)68.  Where  Algol68  expressions 
occur  in  this  paper  they  are  written  in  italics.  Where  sections  of 
program  are  included,  they  are  enclosed  in  a  rectangular  box. 

Much  of  this  paper  is  concerned  with  the  implementation  of 
user-defined  graphics  on  Flex.  !t  is  intended  to  supply  users  of  the 
Flex  system  with  enough  information  to  create  their  own  graphical 
objects.  A  familiarity  with  Flex  would  aid  in  the  understanding  of 
those  parts  of  the  paper  which  are  more  concerned  with 
implementation.  Those  parts  of  Flex  which  are  used  in  this  paper  are 
described  below. 

The  implementation  of  user_defined  graphics  on  Flex  has  involved  the 
writing  of  software.  Some  of  this  software  is  the  actual 
implementation  and  the  remainder  is  a  set  of  tools  for  users  creating 
pictures.  The  tools  are  described  throughout  this  paper  where  they 
are  relevant  and  the  appendix  includes  a  list  of  the  tools  together 
with  a  brief  explanation  of  their  use. 

The  tools  are  accessed  via  Flex  Modules.  Modules  are  objects  that 
keep  values,  in  this  case  tools,  that  can  be  used  in  program.  The 
values  kept  by  a  module  are  accessed  by  including  the  module  in  a 
program  and  referring  to  the  kept  values  by  name.  (Stanley,  1985] 
gblockjnodes  tModulej  is  the  notation  used  to  reference  the  system 
module  of  name  gblock_modes. 

The  result  of  compilation  on  Flex  is  the  Compiledpair.  This  is  a  value 
which  includes  the  code  generated  from  the  compilation,  a  language 
dependent  specification  of  the  code  and  the  source  text  of  the 
compilation.  Compiledpairs  are  used  to  define  user-defined  graphical 
objects. 

Flex  has  a  typed  operating  system  and  a  command  line  interpreter, 
curt  [I.  F.  Currie  and  J.  M.  Foster,  1982],  which  checks  the  types  of 
values  before  obeying  the  command  line.  Every  value  handled  by  the 
operating  system  has  a  type  called  a  Curt  Mode. 


§  3  The  basic  document  on  Flex 

Objects  that  are  displayed  on  documents  are  called  graphical  blocks 
and  objects  that  are  user -defined  are  called  pictures.  A  class  of 
objects  is  either  a  class  of  graphical  blocks  or  a  picture  class. 

Every  graphical  block  owns  a  rectangle  on  the  document  and  its  visual 
image  must  lie  inside  the  rectangle. 

The  graph  occupies  the  area  inside  the  rectangle  defined  by  the 
dashed  lines.  The  dotted  lines  would  not  appear  on  the  document,  but 
are  drawn  to  show  the  limits  of  the  graphical  block. 


Thisisagraphicalblbckcorislstingbfallhebfcharacters 


There  are  three  methods  of  constructing  graphical  blocks.  Firstly, 
there  are  primitive  graphical  object  classes  which  form  part  of  the 
basic  editorj  secondly,  all  pictures  are  graphical  blocks  and  finally 
graphical  blocks  can  be  composed  from  other  graphical  blocks.  The 
ability  to  compose  graphical  blocks  from  graphical  blocks  introduces 
recursion  into  the  basic  document . 

The  primitive  classes  of  graphical  block  include  the  cIbss  of  lines  of 
text  and  the  class  of  black  and  white  rectangles.  Pictures  are  the 
main  subject  of  this  paper.  The  composition  of  graphical  blocks  from 
other  graphical  blocks  is  important  to  the  subject  of  pictures  for 
two  reasons.  Firstly,  a  picture  may  form  part  of  a  composition  of 
graphical  blocks  to  form  a  larger  graphical  block  and  secondly, 
pictures  may  be  recursively  defined  in  terms  of  other  graphical 
blocks. 

In  basic  documents  there  are  two  main  methods  of  composition  of 
graphical  blocks.  Firstly  graphical  blocks  can  be  composed 
vertically.  A  vertical  composition  is  formed  by  placing  the  graphical 
blocks  vertically  Bbove  each  other  with  a  left  justification. 


The  rectangle  occupied  by  the  graphical  block  of  the  vertical 
composition  of  the  graphical  blocks  is  the  smallest  rectangle 
including  the  composition. 

Secondly  graphical  blocks  can  be  composed  horizontally.  It  is  not 
always  desirable  for  graphical  blocks  to  be  justified  towards  the 
top.  To  determine  where  a  graphical  block  lies  in  its  horizontal 
composition,  there  is  a  distance  associated  with  each  graphical  block 
called  its  y-point.  The  y-point  is  measured  from  the  top  of  the 
graphical  block  and  when  graphical  blocks  are  composed  horizontally, 
their  y-points  must  lie  on  the  same  horizontal  line. 


This  is;  (of  four 

. (graphical 
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flocks 
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/  v  ' 

Again  the  rectangle  occupied  by  the  horizontal  composition  of  the 
graphical  blocks  is  the  smallest  rectangle  including  the  composition. 
Note  that  the  top  of  the  graph  does  not  coincide  with  the  top  of  the 
graphical  block,  this  is  because  it  has  a  different  y-point.  This 
example  is  more  complex,  with  vertical  graphical  blocks  forming  part 
of  the  horizontal  graphical  block,  illustrating  the  recursive  nature 
of  graphical  blocks. 

A  document  is  constructed  from  a  graphical  block  and  a  size.  The  size 
is  the  size  of  the  document  and  it  must  not  be  smaller  than  the 
graphical  block  from  which  it  is  constructed.  When  the  document  is 
displayed,  the  graphical  block  is  displayed  in  the  top  left  of  the 
document. 
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§  3. 1  GBLODCs  in  programs  and  their  composition 


The  basic  document  is  written  in  AlgoI68  and  this  requires  graphical 
blocks  to  be  representable  by  a  value  with  an  Algo!68  mode.  The 
Algol68  mode  for  a  graphical  block  is  defined  in  the  module 
gblock_modes  ■  Module' and  is  kept  with  the  name  GBLOCK. 

Graphical  blocks  own  rectangles  on  a  document,  making  it  necessary 
to  be  able  to  describe  vectors  and  rectangles  in  Algol68.  The  Algol68 
modes  for  a  vector  and  for  a  rectangle  are  defined  in  the  module 
|coord_and_re  (Module!  and  are  kept  with  the  names  VEC1  and  RECT. 

VECI  is  a  STRUCT(1NT  x.y)  and  represents  the  two  dimensional 
vector. 

_ 


Notice  that  the  y  direction  is  measured  downwards. 

RECT  is  a  STRUCT(VECI  tl,  size)  and  represents  the  rectangle 


If  a  graphical  block  is  to  be  composed  with  other  graphical  blocks  on 
a  document,  then  it  will  be  necessary  to  know  some  properties  of  that 
block.  Its  size  will  have  to  be  known  to  determine  where  other 
graphical  blocks  lie  in  relation  to  it,  and  also  its  y-point  is  required 
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when  determining  how  to  line  up  horizontal  vectors  of  graphical 
blocks. 

The  program  value  representing  a  graphical  block  includes  both  its 
size  and  its  y-point. 

The  Algol68  mode  of  GBLOCK  is 

STRUCT(GI TEM  data,  VEC1  size.  INT  ypt) 

The  data  field  is  a  union  of  the  modes  representing  data  classes  of 
graphical  blocks.  It  includes  all  the  data  classes  required  by 
graphical  blocks  of  the  basic  documents  and  the  mode  REF  PICTURE. 
REF  PICTURE  is  the  class  of  user-defined  graphical  blocks, 
including  their  data  together  with  the  operations  that  can  be 
performed  on  that  data. 
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§  V  The  Algol68  model  of  the  graphical  abstract  structure 


Every  picture  class  must  be  an  example  of  the  abstract  structure  of 
objects  in  documents.  Picture  classes  are  defined  in  terms  of  Algol68 
and  there  is  a  model  for  the  abstract  structure  expressed  in  terms  of 
Algol68. 

The  abstract  structure  consists  of  a  data  class  and  a  set  of 
operations  operating  on  elements  of  the  data  class.  The  data  class  is 
defined  by  an  Algol68  mode  and  can  be  any  Algol68  mode.  For  example, 
the  class  of  lines  of  text  could  be  represented  by  the  Algol68  mode 
VECTOROCHAR.  The  operations  of  the  abstract  structure  are  defined 
by  Algol68  procedures.  The  modes  of  these  procedures  are  entirely 
determined  by  the  mode  of  the  data  class.  This  Algol68  model  is  made 
possible  because  Flex  supports  true  procedure  values  [Stanley  1986]. 

The  Algol68  model  for  the  abstract  structure  is  expressed  in  terms 
of  a  formal  mode,  P1CVAL ,  and  a  set  of  named  procedures  whose 
modes  are  expressed  in  terms  of  the  formal  mode  P1CVAL.  For 
example,  the  operation  to  store  a  graphical  object  on  disc  has  mode 

PROC(PIC  VAL)DISCCAPABILI  T  Y 

Any  example  of  this  abstract  structure  must  have  a  set  of  named 
procedures  whose  modes  can  be  created  by  a  substitution  for  the 
mode  PICVAL  in  the  abstract  structure.  In  the  case  of  lines  of  text, 
the  operation  to  store  the  text  on  disc  is 

PROC(VECTOR[]CHAR)DISCCAP  ABILITY 

The  names  and  mode  form  of  the  operations  follow,  the  name  is  on  the 
left  and  the  mode  form  on  the  right.  All  of  the  modes  except  for 
PICVAL  are  defined  by  the  Flex  implementation  and  are  kept  in  common 
modules,  PICVAL  is  the  formal  mode  of  the  data  class  of  the  picture 
class  being  defined.  A  more  detailed  explanation  of  the  specification 
of  tne  operations  is  given  in  section  8. 
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displayer 


PR0C(D1SPLAYFRAME,INT,PICVAL)V01D 
{displays  the  data} 


editor  PR0C(PICTUREFRAME,!NT.P1CVAL)ED1TRES 

{edits  the  data} 

ed_out  PROC  ( PROC(CHAR)  VOID, 

PR0C(1NT)V01D, 

PROC(GBLOCK)  VOID, 

PICVAL 

)[/ECTOR[]CHAR 
{encodes  the  data  for  output  to 

disc  or  ethernet } 

ed_in  PROC  (PROC  CHAR, 

PROC  INF, 

PROC  GBLOCK 
)P1C  VAL 

{decodes  the  data  after  reading  from 

disc  or  ethernet } 


val_  <o_  disc  PROC(PlCV AL)INT 

{stores  the  data  on  disc} 

disc_to_val  PROC  (IN  T)P1CVAL 

{reads  the  data  off  disc) 

v_split  PROC  (PICVAL. 

INT, 

PROCfPICVAL,  VECUNT)GBLOCK 
)VSRES 

{splits  a  picture  horizontally  into 

two  graphical  blocks} 

make_  gcomp_  input  PROC  (PICVAL  )INP  LITRES 

{provides  input  for  program} 

fold_  index  PR0C(P1C  VAL,INDEX)P1C  VAL 

{marks  a  picture  with  an  index! 

to_disc  PROC(PICVAL)GBDRES 

{puts  a  picture  to  disc  delivering  any  marks 
it  has } 

Not  all  of  these  procedures  need  be  defined  to  create  a  picture 
class,  but  if  a  document  contains  pictures  of  a  class,  then  it  will  not 
be  possible  to  operate  on  those  pictures  with  operations  missing 
from  the  definition  of  the  picture  class. 
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§  5  The  creation  of  a  PictureDefinition 

The  definition  of  the  mode  of  the  data  class,  together  with  the 
procedures  representing  the  operations  on  that  data,  defines  a  class 
of  pictures  and  is  called  a  Picture  Definition. 


§  5. 1  The  making  of  a  PictureDefinition 


The  Compiledpair  of  the  Flex  operating  system  is  the  result  of 
compilation.  It  contains  the  source  text  of  the  compilation,  the  code 
produced  by  the  compilation  and  in  the  case  of  an  Algo  168 
compilation,  the  Aigol68  specification  of  the  values  kept  bv  the 
program.  The  ability  to  hold  the  values  resulting  from  compilation 
and  their  specification  makes  the  compiledpair  a  suitable  basis  for 
defining  a  picture. 

The  Algol68  mode  of  the  data  class  of  the  Picture  Definition  must  be 
kept  by  the  Compiledpair  and  its  name  must  be  P1CVAL.  In  addition  to 
the  mode,  any  operations  of  the  picture  class  must  be  kept  in  the 
Compiledpair  as  Algol68  procedures,  in  the  correct  form.  The 
procedures  kept  must  also  have  names  so  that,  from  examination  of 
the  Picture  Definition,  it  is  possible  to  determine  which  procedure  is 
representing  which  operation.  The  name  of  each  operation  is  the  name 
specified  in  section  »*•. 

In  the  Flex  operating  system,  there  is  a  Curt  mode  PictureDefinition 
and  values  of  this  mode  have  access  to  the  defining  Compiledpair  of  a 
class  of  pictures.  To  create  a  PictureDefinition  the  Flex  procedure 
new_picture_defn  is  applied  to  the  Compiledpair.  The  application  of 
this  procedure  performs  checks  on  the  Compiledpair  to  ensure  that 
the  definition  is  an  example  of  the  abstarct  structure.  There  are  two 
checks  performed!  firstly  the  Compiledpair  must  keep  a  mode  named 
P1CVAL,  which  is  then  taken  to  be  the  mode  of  the  data  class  of  the 
picture  definition;  secondly,  if  any  of  the  operations  of  the  picture 
class  are  kept,  their  modes  must  be  correct.  If  these  two  conditions 
are  not  met  then  the  creation  of  a  PictureDefinition  will  not  be 
allowed. 

§  5.2  The  definition  of  non-standard  operations 


In  a  Picture  Definition,  it  is  possible  to  define  procedures  that  are 
not  part  of  the  abstract  structure.  These  procedures  are  called 
non-standard.  In  order  that  non-stBndard  procedures  can  be 
recognised,  they  must  not  have  the  name  of  any  of  the  operations 
defining  the  structure. 
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Defining  non-standard  operations  on  pictures  has  to  be  done  with 
care.  Unlike  procedures  in  the  abstract  structure,  the  modes  of 
non-standard  procedures  are  not  checked. 

The  only  reason  for  including  non-standard  operations  is  to  enable  the 
creator  of  the  picture  to  access  them  from  his  own  program  which 
may  be  manipulating  graphical  blocks.  To  obtain  these  procedures 
from  a  picture  there  is  a  procedure  find_proc  which  operates  on  the 
PICTURE  field  of  the  mode  GBLOCK. 

This  procedure  is  kept  in  |picture_proc  {Module.  find_proc  has  mode 

PROC(PlCTURE  pc,  VECT 0R[ ]CHA R  name)! NT 

This  procedure  cannot  determine  the  mode  of  the  procedure  it  finds 
and  delivers  a  capability  for  the  procedure  described  as  an  INT.  If 
there  is  no  procedure  called  name  in  the  picture  definition  of  pc, 
then  0  is  delivered,  otherwise,  the  mode  of  the  result  of  fiix!_proc 
will  have  to  be  changed  using  the  binary  operation  1001,  defined 
thus. 

0P(1NT)PR0CM0DE  CHANGEMODE  «  B10P  1B01; 

It  is  important  that  PROCMODE  is  correct,  otherwise  the  application 
of  the  procedure  could  result  In  an  error. 

Using  the  procedure  find_va!,  also  kept  in  |picture_proc  : Module",  it 
is  possible  to  obtain  the  data  value  of  a  picture  from  a  graphical 
block.  The  mode  of  find_va!  is 

PROC(PICTURE)INT 

This  procedure  cannot  determine  the  mode  of  the  data  of  the  picture 
and  delivers  a  packed  version  of  the  data  described  as  an  INT.  The 
data  will  have  to  be  unpacked  and  given  its  correct  mode  ( PICVAL ) 
using  the  binary  operation  1151*,  defined  thus 

OP(lNT)PlC\/AL  UNPACK  •  B10P  115k; 

This  is  a  direct  application  of  the  Flex  instruction  54-. 

[I.  F.  Currie,  J.  M.  Foster,  P.  W.  Edwards,  1985] 

The  mode  PICVAL  depends  on  the  class  of  the  picture  from  which  it 
was  obtained.  It  is  important  that  the  mode  PICVAL  is  correct, 
otherwise  errors  will  result. 

§5.3  The  changing  of  a  PictureDefinition 

Once  a  picture  has  been  created,  it  may  be  that  the  operations 
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defining  that  picture  need  to  be  changed.  There  are  two  possible 
changes  that  can  be  made  to  a  PictureDefinition;  firstly  existing 
procedures  can  be  modified  to  incorporate  changes  in  the 
specification  or  to  correct  mistakes  in  the  definition!  secondly  new 
operations  can  be  added  to  the  definition.  The  second  type  of  change 
enables  pictures  to  be  created  without  knowing  all  of  the  operations 
that  may  have  to  be  performed  on  them. 

To  change  a  PictureDefinition  a  new  Compiledpair  has  to  be  created 
which  is  the  new  definition  of  the  class  of  pictures.  Pictures  which 
have  already  been  created  cannot  change  their  data,  only  the 
operations  that  can  operate  on  the  data-,  for  this  reason  the  Algol68 
mode  P1CVAL  kept  in  the  new  definition  must  be  identical  to  the  mode 
in  the  old  definition.  Any  of  the  procedures  in  the  abstr  act  structure 
kept  by  the  new  definition  must  be  of  the  correct  form,  and  if  am 
non-standard  procedure  is  kept  in  the  old  definition,  a  procedure 
with  the  same  name  and  mode  must  be  kept  in  the  new  definition.  An 
arbitrary  number  of  non-standard  procedures  can  also  be  included  in 
the  new  definition.  When  an  alteration  to  the  PictureDefinition  is 
made,  all  of  these  properties  are  checked. 

To  make  the  change  to  the  PictureDefinition  the  Flex  procedure 
amend_picture_def n  is  applied  to  the  PictureDefinition  to  deliver  a 
procedure  which  operates  on  a  Compiledpair,  and  will  amend  the 
PictureDefinition  to  the  definition  of  the  Compiledpair.  This  is  a 
parallel  to  the  Flex  procedure  amend  used  for  changing  the 
Compiledpair  associated  with  a  Module. 

For  example 


Compiledpair 


PictureDefinition  |amend_picture_defn 1 


would  give  the  PictureDefinition  the  definition  of  the  Compiledpair. 


i  6  The  making  of  a  picture  from  a  PictureDefinition 


There  is  a  procedure  on  Flex  (see  section  on  Declaring  Flex  Picture 
Procedures),  called  make_picture_maker.  which  when  applied  to  a 
PictureDefinition  delivers  a  Compiledpair  with  an  Algol68 
specification.  This  Compiledpair  keeps  a  procedure  for  making 
pictures  (of  Algol68  mode  GBLOCK )  from  the  class  of  pictures 
defined  by  the  PictureDefinition.  The  name  of  this  procedure  is 
make_name,  where  name  is  the  name  of  the  Compiledpair  defining  the 
PictureDefinition. 

The  mode  of  this  procedure  is 

PROC(PIC  VAL.  VECI.JN  T)GBL  OCK 

This  procedure  is  created  from  the  Picture  Definition  and  has  the 
class  of  pictures  defined  by  the  PictureDefinition  bound  to  it.  To 
specify  an  individual  picture  from  that  class  requires  a  data  value 
from  the  data  class  of  that  picture.  This  is  supplied  as  a  parameter 
to  the  procedure  (PICVAL).  In  addition  to  the  data  of  the  picture, 
information  about  the  size  and  y-point  of  the  picture  need  to  be 
supplied. 

An  example  of  the  method  that  may  be  used  to  create  a  picture  on  a 
document  is 

1.  Make  a  Compiledpair  keeping  the  mode  of  the  data  and  the 
procedures  defining  the  operations  of  the  picture.  Apply 
new_picture_def n  to  deliver  a  PictureDefinition 

(Compiledpair'  new_picture_defn  1  delivering  pi  ct ureDe  f i ni tj on 


2.  Apply  make_picture_maker  to  the  PictureDefinition  to  deliver  a 
Compiledpair  keeping  make_name,  from  this  make  a  new  Module. 

PictureDefihitionrnake_picture_maker  1  new1  delivering 

biake_name  : Module 


3.  Write  a  program  keeping  a  procedure  to  take  data  of  a  picture 
class  create  the  corresponding  picture  and  display  the  picture  on 
the  screen  using  roll. 
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roll_picture_mi 
make_name  s  Module  ! 
groTI  :Module 

MODE  P1CVAL  «  {mode  of  picture  data  structure} : 

PROC  roll_picture  «  (PICVAL  picture_value  )V0ID: 

groll(make_name(  picture_value,  {size  of  picture },  {ypt  of  picture})) 
KEEP  roll_picture 


FINISH 


§  7  The  example 


The  example  used  to  illustrate  the  creation  of  a  picture  is  the  class 
of  pictures  representing  polynomial  fits  through  a  set  of  points.  The 
polynomial  through  a  set  of  points  shall  be  the  lowest  order 
polynomial  giving  an  exact  fit. 

The  data  class  of  the  pictures  is  the  set  of  points  through  which  the 
polynomial  must  pass.  The  Algol68  mode  used  to  represent  this  data 
set  is  REF  VECTORllVECl,  that  is  a  set  of  displacement  vectors. 
These  displacements  are  measured  from  the  top  left  of  the  picture 
and  give  the  position  of  the  points. 

The  class  of  data  of  the  picture  is  only  a  subset  of  the  Algol68  values 
with  mode  REF  VECTORLIVECl.  It  is  not  possible  to  fit  a  polynomial 
through  two  points  vertically  above  each  other.  A  further  restriction 
on  the  class  of  data  is  that  the  REF  VECTORIJVECI  is  ordered 
according  to  the  displacement  in  the  x  direction  of  the  VEC1.  The 
latter  restriction  is  for  the  convenience  of  writing  the  defining 
operations  of  the  picture. 

The  visual  representation  of  a  picture  of  this  class  is  the  set  of 
points,  marked  by  crosses,  together  with  the  line  representing  the 
polynomial  fit. 

The  editor  will  have  the  ability  to  add  points,  remove  points  and  move 
points.  As  the  data  of  the  picture  changes,  the  visual  representation 
must  change  to  maintain  consistency. 
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§  8  The  operations  of  the  abstract  structure  of  a  picture 


This  section  gives  a  more  detailed  specification  of  the  operations  in 
the  abstract  structure,  illustrated  by  the  polynomial  fit  example. 

§  8. 1  The  displayer 

Every  graphical  block  of  a  document  owns  a  rectangle  on  that 
document,  and  this  rectangle  contains  the  visual  image  of  the  data  of 
that  block.  The  displayer  is  the  name  of  the  operation  for  displaying 
the  visual  image  of  the  data  of  a  picture  in  its  rectangle. 

This  operation  is  used  by  the  Flex  editor  when  displaying  documents 
on  the  screen  and  can  also  be  used  for  producing  hard  copies  of 
documents  on  printers. 

The  displayer  operates  by  assigning  the  visual  image  to  a  two 
dimensional  boolean  array  (a  raster).  This  boolean  array  is  supplied 
via  the  operands  of  the  operation  and  in  the  case  of  the  editor  it  will 
be  part  of  the  screen.  The  boolean  array  represents  pixels  on  the 
document  i  if  an  element  of  the  array  is  set  to  TRUE,  then  the 
corresponding  pixel  is  black,  if  it  is  set  to  FALSE,  then  the 
corresponding  pixel  will  be  white. 

The  top  left  pixel  of  the  rectangle  of  the  picture  is  addressed  by 
[8,0],  The  x  direction  is  measured  from  left  to  right  and  the  y 
direction  is  measured  from  top  to  bottom. 


X 


y\ 


The  element  of  the  boolean  array  corresponding  to  (x,y)  is  addressed 
by  [y,x]. 

It  is  not  always  the  case  that  the  entire  picture  has  to  be  displayed. 
For  example,  if  the  picture  is  too  large  to  fit  on  the  screen,  or  only 
part  of  the  picture  lies  in  a  window  on  the  screen,  there  is  no  need 
to  display  the  picture  outside  that  window,  especially  as  this 
involves  holding  a  larger  boolean  array  than  required. 


If  a  document  is  being  scrolled  behind  a  window,  then  onl\  that  part 
of  the  picture  which  appears  in  the  window  as  a  result  of  the  scroll 
needs  to  be  displayed. 

To  stop  the  unnecessary  displaying  of  parts  of  a  picture,  in  addition 
to  operating  on  the  data  of  a  picture,  the  displayer  requires  an 
additional  operand  with  Algol68  mode  DISPLAYFRAME  (kept  in 
|pic_operator  ■  Module  ).  This  value  holds  information  about  where  to 
display 'the  picture  and  which  part  of  the  picture  to  displav.  To 
obtain  the  boolean  array  to  which  the  visual  image  of  a  picture  is 
assigned  there  is  an  operator  AREA,  (also  kept  in 
[pic_operator  ■  Module  )  operating  on  a  DISPLAYFRAME ,  delivering  the 
boolean  array.  If  only  part  of  the  picture  is  to  be  displa\ed.  the 
boolean  array  is  trimmed  accordingly. 

Pictures  may  have  to  be  displayed  at  different  magnifications,  for 
example,  the  Perq  screen  has  100  pixels  per  inch,  but  a  laser  printer 
may  have  more  pixels  to  the  inch.  If  a  document  is  to  have  the  same 
size  of  visual  image  on  both  the  Perq  screen  and  the  laser  printer 
then  the  displaying  of  the  picture  on  the  laser  printer  must  be 
magnified.  This  requirement  results  in  a  further  operand  to  the 
displayer;  this  operand  is  an  integer  parameter  and  is  the 
magnification  of  the  visual  image.  A  magnification  of  1  corresponds 
to  100  pixels  per  inch,  corresponding  to  the  Perq  screen  and  a 
magnification  of  n  corresponds  to  108n  pixels  per  inch.  The  size  of  a 
picture  and  its  y-point  are  measured  in  pixels  assuming  a 
magnification  of  1.  If  the  magnification  of  the  visual  image  is  n,  then 
an  untrimmed  boolean  array  for  displaying  the  image  will  have  size 
n  x  s,  where  s  is  the  size  of  the  picture. 

The  magnification  of  an  image  is  part  of  the  definition  of  the  picture 
so  that  the  user  can  take  advantage  of  the  increased  resolution 
provided  by  the  greater  magnifications. 
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The  mode  of  the  displayer  is 

PROCfDISPL A  YFRA ME, IN T.P1CVAL) VOW . 

DISPLA  YFRAME  is  the  display  frame 
INT  is  the  magnification 

P1CVAL  is  the  underlying  data  structure 


§8.1.1  Writing  to  boolean  arrays  and  the  use  of  display  procedures 

The  display  frame  defines  a  boolean  array  to  which  part  of  the  visual 
image  of  the  data  of  a  picture  is  assigned.  If  there  is  an  attempt  to 
assign  outside  of  the  array  then  a  failure  will  occur.  It  cannot  he 
assumed  that  the  array  is  large  enough  to  display  the  entire  picture, 
making  it  necessary  to  determine  how  large  the  array  is  and  what  part 
of  the  picture  is  to  be  displayed. 

It  is  the  responsibility  of  the  displayer  to  ensure  that  no  assignment 
is  a'- tempted  outside  the  boolean  array  of  the  display  frame.  All  of 
the  display  procedures  defined  in  the  Flex  implementation  and 
discussed  in  this  document  (see  following  section)  are  designed  not 
to  fail.  They  all  determine  the  size  of  the  boolean  array  and  do  not 
attempt  to  display  outside  of  it. 

If  none  of  the  picture  to  be  displayed  by  a  displayer  lies  in  the 
boolean  array  specified  by  the  display  frame,  then  the  call  of  the 
display  procedure  achieves  nothing.  The  procedure  has  to  determine 
that  none  of  the  picture  is  to  be  displayed  and  the  checks  that  this 
involve  are  costly  in  time.  If  a  display  procedure  intends  to  call 
internally  another  display  procedure  and  it  is  easy  to  determine  that 
the  call  of  this  procedure  will  not  display  any  of  a  picture,  then  the 
speed  of  the  displayer  will  be  increased  by  not  calling  the  internal 
procedure . 

§8.1.2  DISPLAYFRAMEs  and  displaying  procedures 


In  the  defining  of  a  displayer,  it  is  often  necessary  to  determine  that 
part  of  a  picture  which  is  required  to  be  displayed  by  a  display 
frame.  This  can  be  done  by  applying  the  Algol68  operator  AREA  to  the 
display  frame  and  examining  the  bounds  of  the  resulting  boolean 
array,  but  alternatively  there  is  an  Algol68  operator  VISIBLERECT, 
kept  in  |pic_operator  iModulej.  operating  on  a  display  frame, 
delivering  as  a  RtCl,  that  part  of  the  picture  which  has  to  be 
displayed. 


There  is  also  an  operator  SIZE,  kept  in  toic_operator  iModule;,  which 
operates  on  a  display  frame,  delivering  the  size  of  the  rectangle  that 
the  picture  occupies  on  the  document. 
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document 


If  the  shaded  area  is  the  area  of  the  picture  to  be  displayed,  s  is  the 
vector  delivered  by  SIZE,  and  is  independent  of  the  position  of  the 
picture  on  the  document  and  the  area  to  be  displayed;  v  is  the 
rectangle  delivered  by  VISIBLERECT  and  is  also  independent  of  the 
position  of  the  picture  on  the  document. 

There  are  procedures  defined  for  drawing  arbitrary  lines  and  filling 
in  rectangles.  These  procedures  are  defined  in  |pic_draw_rrT iModule. 

There  are  three  procedures  for  drawing  lines,  draw_horiz.  draw_vert 
and  pic„draw_Hne.  All  three  of  these  procedures  take  a  pattern 
parameter  which  consists  of  a  row  of  booleans.  As  the  line  is  drawn, 
the  boolean  pattern  is  repeated.  In  the  case  of  draw^horiz  and 
draw_vert  the  pattern  is  passed  as  a  UBOOL  >  in  the  case  of 
pic_draw_!ine  the  pattern  is  passed  as  a  REF  VECTORUBOOL.  There 
are  some  predefined  patterns  defined  in  [Iine_styles  iModule.  There 
is  another  parameter  common  to  all  three  procedures  and  that  is  an 
integer  set.  set  determines  what  is  assigned  to  that  part  of  the 
boolean  array  where  the  line  lies. 


Assignment  to  boolean  array 


0  The  pattern. 

1  The  negation  of  the  pattern. 

2  The  ’and’  of  the  pattern  and  the  boolean  array. 

3  The  ’and’  of  the  negated  pattern  and  the  boolean  array. 

4-  The  ’or'  of  the  pattern  and  the  boolean  array. 

5  The  ’or’  of  the  negated  pattern  and  the  boolean  array. 

6  The  'xor  '  of  the  pattern  and  the  boolean  array. 

7  The  'xor  ’  of  the  negated  pattern  end  the  boolean  array. 
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pic_ draw_ line  is  a 

PROC(DISPLA  YFRAME  df. 

COORD  from,  to, 

REF  VECTOROBOOL  pattern. 

INT  set 
)VOID 

df  is  the  display  frame  defining  that  part  of  the  picture  to  be 
displayed. 

from  and  to  are  coordinates  of  the  positions  in  the  picture  where  the 
line  is  to  start  and  finish.  COORD  is  the  Algol68  mode 
STRUCTfSHORT  REAL  x.  y) 


document 


pic_draw_line  does  not  attempt  to  draw  outside  of  the  shaded  area 
even  though  the  call  of  the  procedure  requests  it. 

dranv_horiz  and  draw_vert  draw  horizontal  and  vertical  lines,  drawing 
them  more  efficiently  than  the  more  general  pic_draw_iine. 

draw_horiz  is  a 

PROC(DlSPLA  YFRAME  df, 

INT  y_  place, 

INT  from,  to, 

INT  set, 

[JBOOL  pattern, 

INT  origin 
)VOID 

df  is  the  display  frame  defining  the  boolean  array  in  which  the  line  is 
to  be  drawn. 

y_ place  is  the  y-position  of  the  horizontal  line. 
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from  and  to  are  the  x-coordinates  of  the  start  and  finish  of  the  line. 


origin  is  the  place  where  the  pattern  starts.  The  line  is  only  drawn 
between  from  and  to,  but  the  pattern  is  measured  from  origin. 

draw_vert  is  a  procedure  with  an  identical  Algol68  mode,  with  the 
switching  of  the  x  and  y  directions. 

There  is  one  procedure  for  filling  in  rectangles,  this  is  called 
fill^frame.  It  has  mode 

PROC (DISPLAY FRAME  df, 
l NT  degree 
)VOID 


df  is  the  display  frame  defining  the  boolean  array  which  js  to  be 
filled. 

degree  determines  how  the  array  is  filled. 

degree  Assignment  to  boolean  array 


1  FALSE  (Clears  the  array ). 

2  The  negation  of  the  array. 

3  TRUE  (Blackens  the  array ). 


fill_  frame  fills  the  whole  of  rectangle  specified  by  its  display 
frame  parameter  to  whatever  degree  is  specified.  A  smaller  rectangle 
can  be  filled  by  creating  a  new  display  frame  referring  to  a  smaller 
area  and  apllying  fili_frame  to  that.  There  is  an  Algol68  operator 
RESTRICT,  kept  in  |pic_operator  iModulej,  which  operates  on  a 
display  frame  and  a  rectangle,  delivering  a  new  display  frame  which 
is  the  old  display  frame  restricted  to  the  rectangle. 


If  df  is  a  display  frame  specifying  the  displaying  of  the  picture  in 
the  lightly  shaded  region,  then  df  RESTRICT  r  is  a  new  display 
frame  specifying  the  area  that  is  more  darkly  shaded. 

§8.1.3  The  displayer  of  polynomial  fit 

The  displayer  of  polynomial  fit  is  divided  into  two  sections;  the 
first  section  displays  crosses  where  the  points  lie,  and  the  second 
section  plots  the  curve. 


MODE  PICVAL  -  REF  VECTOR  £  JVECI , 

PROC  displayer  ■  (01SPLAYFRAME  df,  1NT  mag,  PICVAL  pv)V01D. 
(REF  VECTORUBOOL  solid*sty!es[  1] ;  (style  of  line  to  be  drawn) 
FORALL  pv_i  IN  pv  DO  (forall  points) 
draw_vert(df,xOFpv_i,yOF pvj-W.yOF pv_i*<»,0, solid, 0 ) ; 
draw_horiz(df,yOFpvJ.xOFpvJ-i*-,xOFpv_i*i»,8,solid,0 ) 

OD, 

IF  UPB  pv>l  THEN  draw  curve  FI  (plot  curve) 

,  i  -  J 


The  crosses  are  composed  from  solid  horizontal  and  vertical  lines  of 
length  9,  intersecting  at  the  point  to  be  marked.  If  there  is  more  than 
one  point,  then  the  curve  is  plotted. 
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The  curve  plotting  procedure 

INT  order=UPB  pv ;  ' 

REF  [,)REAL  eqns=HEAP  [1  :order,  1  ,order+ UREAL  , 
fincFfit  and  store  coeffs  in  eqns t .order*  1)  , 

IJrEAL  coeff  =  eqnsl , order* 1 J ,  ‘  " 

PROC  f  =  (REAL  x)REAL:  (define  function) 

(REAL  s  :=  coeff [order] , 

FOR  i  FROM  order-1  BY  -1  TO  1  DO  s,=  s»x*coeff [i]  OD; 
s 
), 

PROC  plot_x_int*  (INT  low,  high)V01D: 

(draw  Fine  from  low_x  to  high_xl) ; 

RECT  r  =  V1S1BLERECT  df  , 

INT  left  =  xOFtlOFr, 

right  =  left+xOFsizeOFr- 1 ; 

(find  first  point  in  visible  area) 

INT  start  *  =  0 ; 

FOR  i  TO  order 

WHILE  xOFpv[i]<left  OREL ( start  ,*i  , FALSE  ) 

DO  SKIP  OD, 

IF  start=l  THEN  plot_x_int(0,xOFpv[  1  ]  )FI,(draw  first  line) 
IF  start /-0  THEN 

(draw  lines  between  points  whilst  inside  visible  area) 
FOR  i  FROM  (start  MAX  2 )  TO  order  WHILE 
INT  last  «  xOFpvli-U  i 
p!ot_x_int(  last,xOFpv[i]  ), 
i<*right 
DO  SKIP  00 
FI, 

IF  xOFpvI order  ]<right  THEN 
plot_x_int(xOFpv [order] ,xOF  SIZE  df)  {draw  last  line) 

FI 


The  coefficients  of  the  polynomial  that  fits  the  points  in  the  data  of 
the  picture  are  calculated  and  stored  in  coeff.  The  function  f  is  the 
polynomial. 

p!ot_x_int  draws  the  curve  representing  f  between  the  two  x  points 
supplied  as  a  parameters.  It  only  displays  the  curve  where  it  lies  in 
the  area  specified  by  the  display  frame  df.  The  curve  is  drawn  as  a 
series  of  straight  line  approximations  using  pic_draw_line,  the  x 
displacement  of  each  line  being  10  and  the  first  line  starts  at  the  x 


position  low.  If  the  same  part  of  the  curve  is  drawn  twice,  an  i  the 
starting  point  for  the  second  drawing  does  not  coincide  with  the  end 
of  a  straight  line  in  the  first  drawing,  then  the  straight  line 
approximations  of  the  two  curve  drawings  will  not  coincide.  For  this 
reason  plot_x_int  is  only  called  on  the  intervals  between  the  points 
of  the  data  of  the  picture;  that  is  it  can  be  called  on  the  interval 
between  any  two  points,  but  not  on  any  sub-interval 

It  is  possible  to  draw  the  curve  by  the  calls  of  plot_x_int  on  the 
entire  interval  [8,  x  OF  SIZE  df]  ;  however  it  is  only  necessary  to 
call  the  procedure  on  those  inter-point  intervals  which  lie  in  the 
area  specified  by  the  display  frame. 

An  example  display 


§  8.1  A  Sideways  displaying 

Sometimes  it  is  necessary  to  display  pictures  that  have  been  rotated 
through  90  degrees,  for  example  displaying  documents  in  a  landscape 
manner  on  a  laser  printer.  It  is  much  more  efficient  to  write  the 
pixels  to  the  boolean  array  as  they  are  to  be  displayed,  rather  than  to 
write  them  as  portrait  and  rotate  them  afterwards. 

The  information  on  whether  to  display  a  picture  sideways  lies  with 
the  boolean  array  to  which  the  visual  image  is  assigned.  If  the  upper 
bound  of  the  second  dimension  of  the  boolean  array  is  negative,  then 
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the  picture  must  be  displayed  sideways.  The  procedures  defined  in 
the  implementation,  such  as  pic_draw_!ine ,  will  draw  their  images 
sideways  if  this  is  specified  by  the  boolean  array  in  the  display 
f  rame . 

If  users  are  writing  directly  to  the  boolean  array  where  the  picture 
is  to  be  displayed,  then  they  will  have  to  take  account  of  the 
rotation.  A  point  that  normally  addressed  by  [y,x],  is  now  addressed 
by  [x.-yl. 


§8.2  The  editor 

The  Algol68  mode  of  the  editor  of  a  picture  is 

PROCfPICTUREFRAME,  1NT,  P1CVAL)EDITRES 

where 

ED1TRES  *  STRUCTfBOOL  altered.  1NT  reason.  PICVAL  picval) 

This  operation  is  called  by  the  Flex  operating  system  and  may  be 
called  for  one  of  several  reasons. 

The  editor  operates  on  three  values;  the  PICTUREFRAME  is  the 
context  of  the  picture  on  the  document,  the  1NT  is  the  reason  for 
calling  the  editor  and  the  PICVAL  is  the  data  of  the  picture  being 
edited.  The  editor  delivers  three  values,  a  BOOL  which  is  TRUE  if 
the  data  of  the  picture  has  altered,  an  1NT,  which  is  the  reason  why 
the  editor  was  left  and  a  PICVAL  which  is  the  new  data  of  the  edited 
picture. 


§  8.2. 1  Reasons  for  entering  or  leaving  the  editor 


The  editor  of  a  picture  is  usually  called  by  the  Flex  editor  when  it  is 
editing  a  document  which  contains  the  picture. 
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The  editor  of  the  picture  can  be  called  for  many  reasons.  The  most 
usual  reason  is  that  the  cursor  has  been  placed  on  the  picture 
because  the  user  wishes  to  change  the  data  of  the  picture.  The 
picture  editor  is  also  called  if  the  editor  of  the  document,  on  which 
the  picture  lies,  is  searching  for  a  string  of  characters.  The  picture 
editor  would  be  expected  to  determine  whether  or  not  it  contained 
such  a  strings  if  it  contained  a  string,  it  should  place  the  cursor  on 
the  string  and  wait  for  a  request  for  action  from  the  keyboard; 
otherwise  it  should  exit. 


When  the  editor  of  a  picture  is  called,  there  is  an  integer  passed  to 
it  as  a  parameter.  This  integer  is  a  coding  of  the  reason  for  the 
calling  of  the  editor.  The  set  of  integers  and  corresponding  Algol68 
names  used  for  coding  are  kept  in  |pic_reasons_  :Module  . 


§  8.2. 1.1  Requests  for  actions  and  their  implementation 

The  actions  of  ah  editor  are  normally  determined  in  one  of  two  ways. 
Firstly,  the  reason  supplied  to  the  editor  on  its  calling  may  entirely 
determine  what  it  has  to  dof  for  example  if  the  reason  was 
find_slring  and  the  picture  did  not  contain  the  string  being  searched 
for,  the  editor  is  exited.  Secondly,  the  editor  responds  to  the 
reading  of  the  keyboard  and  the  puck. 

The  reading  of  the  keyboard  is  done  via  a  procedure  delivering  an 
integer  which  is  a  coding  of  the  key/puck  button  pressed.  Since  most 
readings  of  the  key /puck  require  some  form  of  action  by  the  editor, 
the  integer  delivered  can  be  considered  as  a  coding  of  the  action  to 
be  performed  by  the  editor. 

It  is  not  possible  for  the  editor  of  a  picture  to  perform  all  the 
actions  that  may  be  required  of  it.  Suppose  the  picture  was  the 
second  element  in  a  horizontal  composition  of  graphical  blocks  and 
the  first  element  was  a  line  of  text.  If  the  required  action  of  typing 
the  key  'c'  was  to  put  the  character  ’c’  immediately  in  front  of  the 
picture,  i.e  append  the  character  to  the  line  of  text,  (as  happens 
when  editing  a  cartouche ),  the  picture  editor  could  not  do  this  since 
it  has  control  of  the  picture  but  not  anything  outside  of  it.  The 
editor  of  the  document,  which  calls  the  editor  of  the  picture,  could 
place  the  character  ’c’  in  front  of  the  picture.  In  order  that  the 
document  editor  can  do  this,  the  picture  editor  has  to  be  left  and  the 
action  required  of  the  document  editor  communicated.  The  action 
required  of  the  document  editor  is  passed  as  its  integer  coding  as 
part  of  the  result  of  the  call  of  the  picture  editor. 

In  addition  to  the  actions  resulting  from  direct  interpretations  of  the 
keyboard/puck,  it  is  possible  for  the  editor  of  the  picture  to  request 


26 


other  actions  of  the  document  editor  by  delivering  other  action 
codings . 

§  8.2. 1.2  The  integer  coding  of  reasons  of  entering  the  editor 

The  module  jpic_reasons_  : Module  keeps  integer  codings  of  actions 
and  reasons,  the  names  given  are  intended  to  suggest  the  actions  the\ 
cause  when  passed  to  and  from  the  document  editor.  These  codings 
appear  in  italics. 

find_np\t_  mark 

The  Flex  editor  is  searching  for  the  next  mark  in  a  document  and  has 
'found  a  picture.  If  the  data  of  the  picture  includes  the  ability  to 
mark  parts  of  the  picture  then  the  cursor  should  be  placed  where  the 
mark  is,  writing  the  message  associated  with  the  mark  on  the  display 
line  and  then  normal  editing  should  continue.  If  the  picture  does  not 
contain  any  such  marks  then  the  picture  editor  should  be  left  with  the 
action  find_next_mark,  thereby  informing  the  Flex  editor  to  continue 
searching  for  a  mark  in  the  remainder  of  the  document. 

f  ind_  string 

The  Flex  editor  is  searching  for  a  string  in  a  document  and  has  found 
a  picture.  If  the  picture  has  such  a  string  then  the  cursor  should  be 
placed  on  the  string  and  normal  editing  continued.  If  the  pictur  e  does 
net  contain  such  a  string  then  the  picture  editor  should  be  left  with 
the  action  find_string,  thereby  informing  the  Flex  editor  to  continue 
searching  for  the  string. 

go_  in 

The  Flex  editor  is  trying  to  determine  the  graphical  block  nearest  to 
the  top  left  of  the  cursor.  It  has  found  the  picture.  After  the  select 
button  of  the  puck  is  released,  the  top  left  of  the  cursor  is  set  to 
the  position  of  the  puck. 

move_ down,  mo\/e_left,  move_ right,  move_ up  &  southwest 
The  editor  is  moving  from  one  graphical  block  on  a  document  to 
another  in  the  direction  of  the  reason  and  the  graphical  block  it  has 
found  is  the  picture. 

§  8.2. 1.3  The  integer  coding  of  the  puck/kevboard 

The  reading  of  the  keyboard/puck  delivers  an  integer  coding  as 
specified  in  the  following  list : - 

If  the  key  for  a  character  is  pressed,  then  its  code  is  delivered  and 
is  in  the  range  32  ...  127.  If  CNTRL  is  pressed  in  conjunction  with  a 
character  key,  then  128  is  added  to  the  code. 
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Key 

Reason 

CNTRL  Key 

SET  UP 

find _  string 

6 

HELP 

help 

135 

t 

move_  up 

28 

l 

move_  down 

29 

«- 

move^left 

30 

-» 

move_right 

31 

OOPS 

southwest 

lk  9 

ACC /ESC 

double  _  edit 

155 

BACK  SPACE 

backspace 

136 

BREAK 

128 

129 

TAB 

f  ind_  next_  mark 

137 

RE J /DEL 

127 

BREAK  IN 

NO  SCROL 

change  _  mode 

lk 

LINEFEED 

10 

quit 

PF1 

delete  _  char 

delete_char 

PF2 

duplicate 

duplicate 

PF3 

splits  page 

splits  page 

PF*» 

delete 

delete 

ENTER 

evaluate 

evaluate 

KEYPAD  . 

ins_  blank  _  below 

ins_  blank  _  below 

KEYPAD  0 

container 

container 

KEYPAD  1 

cart_  to_  mode 

cart_to_mode 

KEYPAD  2 

line_to_  para 

line_tO_i>ai  a 

KEYPAD  3 

tidy_para 

tid\_para 

KEYPAD  L 

split _  horiz 

split  _  horiz 

KEYPAD  5 

undo_  cartouche 

undo_  cartouche 

KEYPAD  6 

group 

group 

KEYPAD  , 

insert  _  del_  horiz 

insert _del_  horiz 

KEYPAD  7 

insert_del_vert 

insert_del_vert 

KEYPAD  8 

prev_  page 

prev_page 

KEYPAD  9 

next_  page 

next_  page 

KEYPAD  - 

ins_  blank  _ above 

ins_  blank  _  above 

PUCK  select 

track 

track 

PUCK  examine 

examine 

examine 

PUCK  result 

result 

result 

§  8.2. 1A  The  integer  coding  of  actions  resulting  from  an  edit 


When  a  the  editor  of  a  picture  is  exited,  the  reason  field  of  the 
result  of  the  edit  determines  the  action  taken  by  the  editor  of  the 
document. 

If  a  number  in  the  range  32  ...  127  is  delivered,  then  the  character 
corresponding  to  that  code  is  inserted  in  front  of  the  picture  and  the 
picture  editor  is  re-entered  with  reason  go_in. 
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If  225  is  delivered,  then  the  'Control  a’  display  appears,  operating 
on  the  picture. 


If  the  CNTRL  codes  for  the  letters  a  ...  z,  A,  C..S,  II..Z  are 
delivered,  then  if  these  keys  are  set,  their  respective  action  will  be 
applied  to  the  picture,  otherwise  there  will  be  a  beep  and  the  picture 
editor  will  be  re-entered  with  reason  go_in. 

If  the  code  for  CNTRL  B  is  delivered  the  editor  will  move  to  the 
bottom  of  the  document. 

If  the  code  for  CNTRL  T  is  delivered  the  editor  will  move  to  the 
top  of  the  document. 

backspace 

If  there  is  a  character  immediately  before  the  picture,  it  is  deleted, 
the  picture  editor  is  re-entered  with  a  reason  of  go_in. 

come  _  back 

The  Flex  editor  determines  the  graphical  block  nearest  to  the  top 
left  of  the  cursor  and  calls  its  editor  with  a  reason  of  go^in. 

container 

The  cursor  will  be  placed  on  the  graphical  block  containing  the 
picture. 

delete 

The  picture  is  put  on  the  list  of  remembered  elements. 
double_  edit 

The  window  containing  the  picture  will  be  split  and  the  picture  editor 
re-entered  with  reason  of  go_in. 

duplicate 

The  picture  will  be  placed  on  the  list  of  remembered  elements.  If 
there  is  a  following  graphical  block  in  the  document,  the  cursor  will 
be  placed  on  it,  otherwise  there  will  be  a  beep  and  the  picture  editor 
is  re-entered  with  a  reason  of  go_in. 

evaluate 

The  line  containing  the  picture  is  evaluated  by  curt. 
find_next_mark 

The  Flex  editor  searches  for  the  next  mark  in  the  remainder  of 
document  after  the  picture. 

f  ind_  string 

The  Flex  editor  will  search  through  the  remainder  of  the  document 
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after  the  picture,  for  the  siring  of  characters  set  up  with  the 
FINDLINE  key. 


This  causes  the  picture  to  be  grouped  in  the  same  manner  as  if  it 
were  a  cartouche. 

ins_blank_  above  &  ins_blank_be!ow 

This  causes  a  blank  line  to  be  inserted  either  above  or  below  the 
picture. 

ins_  del_  vert 

This  causes  the  top  of  the  list  of  remembered  elements  to  be 
inserted  above  the  line  containing  the  picture. 


Hne_to_para 

This  causes  the  line  containing  the  picture  to  be  turned  into  a 
picture. 

move_left,  move_right,  n>ove_ down,  move_up  &  southwest 

This  causes  the  cursor  to  be  placed  on  the  graphical  block  in  the 

corresponding  direction. 


next _  page  &  prev_page 

If  the  picture  lies  in  a  paged  structure,  there  is  a  passage  through 
the  pages  in  the  forward  and  backward  directions  respectively. 

quit 

This  causes  the  editor  to  quit  from  the  edit  of  the  document 
result 

This  causes  the  editor  to  result  from  the  edit  of  the  document. 
split  _  page 

This  causes  the  page  to  be  split  immediately  above  the  line  containing 
the  picture. 

tidy_  para 

If  the  picture  is  in  a  paragraph,  the  paragraph  will  be  tidied. 
track 

The  puck  is  tracked  and  when  the  select  button  is  released  the  top 
left  of  the  cursor  is  set  to  the  puck  position  and  the  editor  of  the 
graphical  block  nearest  the  puck  is  entered  with  a  reason  of  go_in. 
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All  other  actions  cause  a  beep  and  a  re-entry  of  the  editor  with  a 
reason  of  go_in. 

§  8.2.2  Altering  the  data  of  the  picture 

The  editor  of  a  picture  class  essentially  operates  on  the  data  of  a 
picture  together  with  its  visual  image,  delivering  another  element  of 
the  data  class  of  the  picture  together  with  its  visual  image.  The 
visual  image  is  usually  displayed  when  the  picture  editor  is  called 
and  must  be  kept  consistent  as  the  data  of  the  picture  is  altered.  In 
addition  to  the  data,  the  editor  delivers  a  boolean  which  informs  the 
editor  of  the  document  whether  or  not  any  change  to  the  data  of  the 
picture  is  to  be  recorded  should  the  document  containing  the  picture 
be  put  to  disc.  If,  on  every  edit  of  a  picture,  the  editor  delivers  a 
boolean  signifying  no  alteration,  then  when  the  document  is  put  to 
disc  the  picture  shall  return  to  the  form  that  it  had  when  it  was  taken 
from  discj  otherwise,  when  the  document  is  put  to  disc,  the  picture 
shall  have  the  data  of  the  result  of  the  last  edit.  If  the  picture  had 
never  been  stored  on  disc  the  picture  resulting  from  the  last  edit  is 
stored. 

§  8.2.3  Movement,  expansion  and  the  Pictureframe 

Whilst  editing  a  picture  it  may  be  necessary  to  move  the  document  on 
which  the  picture  lies  behind  the  window  through  which  it  is  seen. 
This  happens  when  not  all  of  the  picture  can  be  seen  through  the 
window  and  the  document  has  to  be  moved  to  include  other  parts  of 
the  picture. 


. 

. . 

:  picture. 

document 


-window  frame  on  screen 
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The  movement  of  the  document  behind  the  window  brings  into  view 
parts  of  the  document  both  inside  and  outside  of  the  picture. 
Although  the  picture  editor  can  determine  how  to  display  that  part  of 
the  document  included  in  the  picture,  because  it  has  the  data  of  the 
picture  as  an  operand,  it  requires  information  on  how  to  display  the 
area  outside  of  the  picture.  This  and  other  information  is  passed 
through  to  the  picture  editor  via  an  operand  with  an  Algol68  mode 
PICTUREFRAME,  kept  in  the  module  lpic_operator  sModule.  This  can 
be  thought  of  as  an  abstract  data  type  with  its  operations,  such  as 
delivering  how  to  display  the  cutside  of  a  picture,  provided  by 
AIgoI68  procedures  and  operations. 

There  is  a  procedure  pic_sc.roJI,  kept  in  jpic_scroll_m  :Module,  which 
moves  a  document  behind  the  window  whilst  editing  a  picture.  The 
ability  to  display  both  the  picture  and  its  surrounding  is  required  by 
this  procedure  making  the  procedure  take  three  parameters:  a 
PICTUREFRAME,  which  gives  the  ability  to  display  areas  outside  of 
the  picture;  a  PROC(RECT)VOID,  this  is  the  dispiayer  for  displaying 
an  arbitrary  rectangle  of  the  picture ;  and  a  VECI  which  is  the  vector 
giving  the  change  in  the  position  of  the  document  behind  the  window. 

It  is  often  possible  to  create  the  PR0C(RECT)V01D  from  the 
dispiayer  of  the  picture  thus 


(RECT  r)VO!D:displayer(DISPFRAME  pf  RESTRICT  r.picval.l  ) 


DISPFRAME  is  an  operator,  kept  in  |pic_operitor  sModule,  for 
converting  a  picture  frame  into  a  display  frame.  When  a  picture  is 
being  edited,  there  is  a  part  of  the  screen  to  which  it  assigns  for 
displaying  its  visual  image.  The  display  frame  for  this  boolean  array 
is  obtained  by  applying  DISPFRAME  to  the  picture  frame  of  the  edit. 
It  is  important  to  realise  that  the  display  frame  does  not  remain 
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constant  throughout  the  edit,  but  changes  as  the  picture  changes  and 
moves  on  the  screen. 

The  procedure  for  displaying  an  arbitrary  part  of  the  picture  on  the 
screen  obtains  the  display  frame  from  the  picture  frame,  pf,  passed 
to  the  picture  editor,  restricts  the  display  frame  so  that  it  only 
includes  the  rectangle  r,  and  with  this  display  frame,  displays  the 
current  value  of  the  data  of  the  picture,  picval,  with  a  magnification 
of  1,  which  is  the  magnification  of  the  screen. 

Whilst  editing  a  picture  a  change  of  its  data  may  result  in  a  change  in 
its  size.  The  top  left  point  of  the  picture  is  fixed  relative  to  the 
document,  so  that  any  change  of  size  will  result  in  an  expansion  or 
contraction  either  to  the  right  or  to  the  bottom.  This  change  to  a 
picture  may  affect  the  position  of  other  objects  on  the  document  t 
they  may  have  to  move  to  allow  room  for  the  picture  to  expand. 


document 

picture^  ■  \ 

•  ■  \  1 
m-  r  i  \ j 

_ _  \.l 

\ 

^expansion  of  picture 


pother  items 
on  document 


If  the  document  in  this  diagram  is  of  fixed  size,  then  the  expansion 
shown  cannot  take  place  since  this  would  require  the  movement  of  the 
item  below  the  picture  so  that  part  of  it  would  lie  outside  of  the 
document)  this  is  not  allowed.  If  the  document  is  flexible  in  the  y 
direction  then  the  document  could  expand  to  allow  the  item  below  the 
picture  to  be  moved  downwards  to  allow  for  the  increase  in  size  of 
the  picture.  Whether  or  not  the  document  is  flexible  in  the  x 
direction,  there  is  room  for  the  expansion  of  the  picture  in  the  x 
direction. 

The  ability  to  expand  a  picture  depends  on  the  context  of  the  picture 
and  the  context  of  a  picture  is  held  in  the  picture  frame.  To  expand 
or  contract  it  is  necessary  to  apply  the  AIgol68  operator  EXPAND, 
kept  in  |pIc_operator  »Module|,  to  the  picture  frame  of  the  picture. 
EXPAND  operates  on  a  "PTC T UHEF RAUE  and  a  VECI,  the  VECl  being  the 
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amount  of  expansion.  EXPAND  delivers  a  boolean  which  is  TRUE  if 
the  expansion  is  allowed  and  FALSE  if  it  is  not.  Expansions  are 
effected  by  expanding  with  a  positive  smount  and  contractions  by 
expanding  with  a  negative  amount.  If  there  is  an  expansion  in  one 
direction  there  must  not  be  a  contraction  in  the  other. 

When  EXPAND  is  called,  it  may  have  to  change  the  location  of  other 
objects  on  the  document  to  accommodate  the  change  of  the  picture. 
When  expanding,  if  there  is  room  for  the  expansion,  EXPAND  clears 
part  of  the  document  to  give  space  for  the  expansion  of  the  picture. 
When  contracting,  the  editor  of  the  picture  must  clear  that  part  of 
the  picture  from  which  it  is  contracting  before  calling  EXPAND. 
thereby  leaving  space  for  the  other  objects  on  the  document  to  move 
into  during  the  call  of  EXPAND.  A  call  of  EXPAND  with  a  contraction 
is  always  allowed. 

§  8.2.1*  Reading  the  keyboard  and  the  puck 

The  state  of  the  puck  can  be  read  at  any  time  during  an  edit  and  is 
read  by  the  procedure  read_puck,  kept  in  |read_puck_m  : Module . 
read_  puck  has  mode  PR0C(P1C  T URE FRAME )PU CERES  where  PUCKRES 
is  a  STRUCTfVEC 1  posn,  BITS  buttons).  The  parameter  is  the  picture 
frame  of  the  edit s  posn  is  the  position  of  the  puck  relative  to  the  top 
left  of  the  picture  and  buttons  are  the  buttons  that  are  held  down  on 
the  puck.  When  the  select  button  is  depressed,  the  least  significant 
bit  is  set;  when  the  examine  button  is  depressed,  the  second  bit  is 
set  and  when  the  result  button  is  depressed,  the  third  bit  is  set. 

There  is  a  procedure  inner _read,  kept  in  jinner_read_m  :Module\ 
which  performs  two  functions.  It  moves  the  document  so  that  it 
includes  the  cursor  and  displays  the  cursor t  it  then  waits  until  a  key 
is  pressed,  either  on  the  keyboard  or  on  the  puck.  When  the  key  is 
pressed  the  integer  coding  for  that  key  is  delivered.  Since 
inner_read  can  cause  a  movement  of  the  document  behind  the  window, 
it  will  require  the  ability  to  display  arbitrary  parts  of  the  document. 
The  picture  frame  provides  the  ability  to  display  all  that  is  outside 
the  picture  and  a  PR0C(RECT)V01D,  displaying  an  arbitrary  rectangle 
in  the  picture,  is  also  required.  The  mode  of  inner_read  is 
PROCfPICTUREFRAME,  PR0C(RECT)V01D)1NT 
The  cursor  is  removed  from  the  document  when  inner _read  is  exited. 

There  is  another  procedure  read,  kept  in  |read_m  sModule1,  which  is 
almost  identical  to  read  except  that  it  waits  lor  the  examine  and 
result  buttons  on  the  puck  to  be  released  before  delivering  their 
integer  coding,  instead  of  delivering  the  coding  the  moment  when 
they  are  pressed. 
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§  8.2.5  Control  of  the  cursor 


The  cursor  is  a  rectangle  within  the  picture  and  is  displayed  in  the 
call  of  either  of  the  two  procedures  inner_read  or  read. 

The  current  location  of  the  cursor  can  be  read  using  the  procedure 
give_cursor_rect,  kept  in  eursor_contr  iWodule.  give_cun>or_rect 
requires  the  picture  frame  as  parameter  and  delivers  the  rectangle  of 
the  cursor  relative  to  the  top  left  of  the  picture. 

To  set  the  location  of  the  cursor,  there  is  a  procedure 
set_cursor_rect,  also  kept  in  jcursor_contr  (Module^  which  requires 
a  picture  frame  and  the  rectangle  to  which  the  cursor  is  to  be  set  :  it 
sets  the  cursor  to  that  rectangle. 

§  8.2.6  Following  the  puck 


An  important  part  of  the  editor  is  the  handling  of  the  action  track, 
track  is  delivered  by  a  call  of  inner_read  or  read  when  the  select 
button  is  pressed.  The  normal  conventions  of  the  editor  are  that  the 
puck  is  followed  whilst  the  select  button  is  pressed  and  when  it  is 
released  the  cursor  is  placed  on  the  nearest  element  to  the  puck. 
This  may  involve  scrolling  the  document  behind  the  window. 

The  simplest  method  of  achieving  this  is  to  deliver  from  the  picture 
editor  the  reason  track.  The  tracking  is  taken  care  of  by  the 
procedure  calling  the  picture  editor  which  is  usually  the  editor  of 
the  document.  The  calling  procedure  can  then  scroll  the  screen  if 
necessary  and  when  the  select  button  of  the  puck  is  released  the 
calling  procedure  can  set  the  top  left  of  the  cursor  to  the  position 
of  the  puck  and  return  with  a  reason  of  go_in.  In  the  calling  editor 
the  puck  is  tracked  and,  when  the  puck  is  released,  the  editor  of  the 
graphical  block  nearest  to  the  puck  is  called  with  a  reason  of  go_in. 
This  is  not  necessarily  the  editor  of  the  picture  which  was  exited  to 
start  the  tracking  of  the  puck. 

§  8.2.7  The  polynomial  fit  example 

The  editor  of  polynomial  fit  provides  only  three  operations.  It 
accepts  new  points,  deletes  existing  points  and  moves  existing 
points.  There  is  always  a  preferred  point  (unless  there  are  0  points) 
and  this  is  initially  the  point  nearest  to  the  puck  (the  point  whose  x 
displacement  is  closest  to  the  x  displacement  of  the  puck)  when  the 
select  button  is  released.  The  preferred  point  it  marked  by  a  cursor 
of  size  (10,16).  When  the  editor  moves  or  deletes  a  point,  it  is  the 
preferred  point  that  is  moved  or  deleted.  When  a  point  is  moved,  it 
is  moved  to  the  current  position  of  the  puck  and  remains  the 
preferred  point.  When  a  new  point  is  inserted,  it  is  inserted  at  the 
current  puck  position  and  it  becomes  the  preferred  point. 
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The  editor  of  polynomial  f it s - 

PROC  editor  =  ( P1CTUREFRAME  pf,  1NT  reason,  PICVAL  pv)EDITRES: 
IF  reason=find_string  OREL  reason  =  find_next_mark  THEN 
(FALSE, reason , pv ) 

ELSE 

REF  VECTOR  HVEC1  npv  :=  pv; 

BOOL  altered:=FALSEj 
INT  action, preferred_point  i 


PROC  find_preferred_point  *  VOID  :|find_pref erred_point~ ; 

PROC  add_point  =  (VECI  point ) VOID  jjadd_pointii 

PROC  remove_point  =(INT  place  )V01D:|remove_point  ; 

PROC  loc_disp=(RECT  r)VOIO: 

di sp  1  aye r ( D 1 SPFR AM E  pf  RESTRICT  r.l.npv); 

PROC  redisplay  =  VOID: 

(RECT  pr  =  VISIBLERECT  pf: 
pf  CLEAR  pr  ;  loc_disp(pr) 

) : 

find_preferred_point  ; 

WHILE 

action :  *inner_read(  pf .  loc_disp ) : 

IF  action  *  ins_del_vert  THEN 
add_point(  posnOF read_puck(  pf ) ) 
redisplay  :TRUE 
ELIF  action  *  delete  THEN 
IF  UPB  npvclTHEN  warning!  "No  points  to  delete" ) 

ELSE 

remove _point(preferred_poinl ) ; 
find _preferred_point ; 
redisplay 
FI: 

TRUE 

ELIF  action  *  ABS  "m"  THEN 
IF  UPB  npv<lTHEN  warning!  "No  point  to  move"  ) 

ELSE 

remove_point(  preferred_point ) ; 
add_poi nt  ( posnOF  read_puck ( pf  ) ) : 
redisplay 
FI  i 
TRUE 
ELSE 
FALSE 
FI 

DO  SKIP  OD: 

(altered, action, npv ) 

FI 


The  picture  does  not  contain  any  strings  or  marks  so  that  if 


the 
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editor  is  entered  looking  for  either  of  these  it  is  left  immediate!  \ 
with  the  same  reason,  thereby  informing  the  calling  procedure  to 
continue  looking.  The  data  structure  has  not  been  altered  so  it  is 
returned  together  with  a  boolean  value  false. 

Any  other  reason  of  entry  to  the  editor  causes  entry  into  its  main 
loop.  Once  in  the  main  loop,  the  editor  reads  the  puck/keyboard  to 
determine  what  action  the  user  wishes.  If  the  action  is  one  of  the 
three  that  the  editor  can  perform,  it  completes  the  action  and  goes 
around  the  loop  again.  All  other  actions  are  communicated  to  the 
calling  procedure  by  exiting  with  the  action  as  a  result.  As  a  result 
of  obeying  actions  the  data  of  the  picture  changes  and  the  current 
value  of  the  data  is  stored  in  n/x  ,  the  recording  of  an  alteration  is 
stored  in  altered.  The  preferred  point  can  also  change  as  a  result  of 
actions  and  is  stored  as  an  index  into  the  vector  of  points  in  the 
variable  preferred_point. 

There  are  five  sub  procedures  of  the  editor 

1.  fir>d_ preferred- point  reads  the  top  left  of  the  current  cursor- 
position  and  assigns  to  preferred_point  the  index  of  the  point 
nearest  to  it.  It  also  moves  the  cursor  to  the  preferred  point  and 
sets  its  size  to  (10,10).  If  there  are  no  points  in  the  data 
structure,  then  the  cursor’s  size  is  set  to  (0,0)  which  makes  it 
invisible.  If  the  editor  is  entered  by  releasing  the  puck  then  the 
top  left  of  the  cursor  holds  the  current  position  of  the  puck  and 
consequently  find_pref erred_point  finds  the  nearest  point  to  the 
puck. 
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PROC  find_preferred_point  =  VOID: 

IF  UPB  npv  =  0  THEN  set_cursor_rect(  pf ,  ((0,0), (0,0))) 

ELSE 

INT  x  *  xOFtlOFgive_cursor_rect(  pf  ) ;  (x-coordinate  of  cursor) 

(find  lowest  point  larger  than  cursor) 

INT  place  :=UPB  npv; 

FOR  i  TO  UPB  npv  WHILE  xOFnpv[i]<x  OREL  ( place  :  =  i  -.FALSE  )D0 
SKIP 
00; 

(If  cursor  is  nearer  lower  one  then  decrement  place) 

IF  pIace>lANDTH  (  xOFnpv[place] -x )>( x-xOFnpv[place- 1 ] (THEN 
place-  :  =  1 
FI; 

{set  the  cursor  to  the  place) 

set_cursor_rect( pf . (npvfplace) ,(10,10))); 

(make  place  the  preferred  point) 

preferred_point  :=  place 
FI 


2.  add_point  adds  a  new  point  into  the  data  structure.  When  adding  a 
new  point  it  is  important  to  preserve  the  property  that  all  the 
points  in  the  vector  of  points  are  ordered  according  to  their 
x-coordinate.  Whenever  a  new  point  is  added,  it  becomes  the 
preferred  point  so  that  the  cursor  is  set  to  this  point  and  its 
index  in  the  vector  is  assigned  to  pref erred_  point .  It  records  the 
alteration  to  the  data  structure  by  setting  altered  to  TRUE . 
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PROC  add_point  «(VEC1  point  )V0ID: 
(  VEC1  size  <=  SIZE  pf  i 


{make  the  point  lie  in  the  picture) 

VECI  pt  =  (  (xOF point  MIN  xOF size  )  MAX  8, 

(yOFpoint  MIN  yOFsize)  MAX  8); 

{make  new  vector  1  larger  than  old) 

JNT  place  :  =UPB  npv*  1  ,- 
HEAP  VECTOR  [place]  VECI  temp; 
altered  TRUE:  {record  alteration) 

(find  place  to  insert  new  point) 

FOR  i  TO  UPB  npv 

WHILE  xOFpt>xOF  npvti]  OREL  (place  s*i;  FALSE) 

DO 
SKIP 
OD; 

{insert  new  point) 

temp[  :place-l]  :*  npvE  :place-l]  ; 
temp  [place]  ;*pt; 
temp  [place*  1  s]  ;*npv  [place:] ; 
npv  :  Hemp ; 

{set  the  cursor  to  new  preferred  point) 
set_cursor_rect(pf ,  ( pt,  (  18,10))); 

preferred_point  :*  place 

{make  the  new  point  the  preferred  point) 

) _ 

3.  remove_point  takes  an  integer  parameter,  which  is  the  index  of 
the  point  in  the  vector,'  removes  the  point  from  the  vector  of 
points  and  records  the  change  in  the  data  structure  by  setting 
altered  to  TRUE. 

PROC  remove_point  HINT  place  )V01D; 

(HEAP  VECTOR  [UPB  npv- 1]  VECI  temp; 
altered  :«  TRUE ; 

temp[  :place-l]  :«  npv[  ;place-13 : 
temp  [place  :  ] ;  =npv[ place*  1 :  ] ; 
npv  :«temp 

) _ 

•».  loc_disp  is  the  local  displayer  to  be  used  as  a  parameter  to 
inner_read.  It  must  display  any  specified  rectangle  of  the 
picture.  The  displayer  of  the  picture  displays  arbitrary  parts  of 


k-0 


the  picture  and  its  parameters  are  a  display  frame,  an  integer  and 
the  data  of  the  picture  to  be  displayed.  The  data  of  the  picture  is 
the  value  stored  in  npv,  the  integer  is  the  magnification  which, 
since  the  display  is  on  the  screen,  is  l.The  display  frame  is 
obtained  from  the  picture  frame  and  the  rectangle  parameter. 


PROC  loc_disp*  ( RECT  r  )VOID  •. 
displayed  DISPFRAME  pf  RESTRICT  r,l,npv)s 


5.  redisplay  redisplays  the  picture.  It  does  this  by  determining  the 
rectangle  of  the  picture  actually  on  the  screen,  using  the 
operator  VIS1BLERECT  of  mode  (PIC T UREF RAME )RE C T.  It  then 
clears  this  area  using  the  operator  CLEAR  of  mode 
OP(P!CTUREFRAME ,RECT)VOID  and  displays  the  picture  in  this 
area  using  loc_disp. 


PROC  redisplay  =  VOIDs 
(RECT  pr  «  VIS1BLERECT  pf  i 
pf  CLEAR  prs  loc_disp(pr) 
); 


The  editor  uses  these  procedures  in  an  obvious  manner  to  implement 
the  actions  of  the  picture  editor.  There  are  tests  to  ensure  that 
attempts  to  delete  and  move  when  there  are  no  preferred  points  fail. 

§  8.3  Transferring  pictures  to  other  machines 

The  procedures  defining  the  operations  of  a  picture  exist  on  a 
filestore  of  a  machine.  If  a  picture  is  to  be  transferred  to  another 
machine,  then  it  has  to  access  the  defining  procedures  of  the 
operations.  Use  of  the  procedures  on  the  machine  from  which  the 
picture  was  transferred  is  unsatisfactory  because  it  would  require 
communication  between  the  two  machines.  At  best,  this  would  be 
slow,  since  the  displaying  of  a  picture  on  a  screen  requires  the 
passage  of  much  information!  at  worst,  there  may  not  be  a  link 
between  the  two  machines.  To  transfer  a  picture  from  one  machine  to 
another,  the  procedures  defining  the  operations  of  a  picture  must 
exist  on  both  machines.  The  transference  of  a  picture  will  therefore 
involve  the  transference  of  the  data  of  the  picture  plus  a  means  of 
identifying  the  defining  procedures  of  the  picture  class  on  the 
receiving  machine.  The  identification  of  the  picture  is  by  means  of  a 
name,  which  must  consist  of  less  than  26  characters. 
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§  8.3.1  The  naming  of  the  operations  of  a  PictureDefinition 


The  procedures  defining  the  operations  of  a  picture  class  are  named 
by  naming,  either  permanently  or  temporarily  the  Picture  Definition 
by  which  they  are  defined. 

When  transferring  a  picture  from  one  machine  to  another  it  is  only 
necessary  for  the  procedures  to  be  named  on  the  receiving  machine. 

§  8.3.2  The  passing  of  values  between  machines 

To  pass  a  value  from  one  machine  to  another  requires  it  to  be 
expressed  in  terms  of  universal  objects  such  as  characters  or 
integers.  In  the  Flex  operating  system  there  exist  procedures  to 
express  general  graphical  blocks  in  terms  of  these  universal  objects 
and,  in  consequence,  to  transfer  a  picture  between  machines  its  data 
must  be  coded  as  a  sequence  of  characters,  integers  and  graphical 
blocks. 

The  characters,  integers  and  graphical  blocks  are  stored  in  three 
flexible  vectors  and  these  vectors  are  passed  between  machines. 
There  are  two  operations  required  of  a  picture  definition  to  transfer 
its  data  from  one  machine  to  another  t  one  to  store  the  data  in  the 
vectors,  and  one  to  remove  the  data  from  the  vectors.  These  two 
procedures  are  called  "ed_out"  and  "ed_in“  respectively.  If  these 
operations  are  not  present,  then  it  will  not  be  possible  to  pass 
pictures  from  one  machine  to  another. 

§  8.3.3  The  ed_out 

The  Algol68  mode  of  the  procedure  defining  the  ed_out  operation  is 
PROC(PROC(CHAR)  VOID, 

PROC(INT)VOJD, 

PROC(CBLOCK)VOID, 

PICVAL 

)VECTOR[]CHAR 

The  three  procedural  parameters  are  the  procedures  to  add  values 
onto  the  end  of  the  vectors,  the  PICVAL  parameter  is  the  data  of  the 
picture.  The  VECTORUCHAR  delivered  is  the  name  by  which  the 
procedures  defining  the  operations  of  the  pictures  on  the  target 
machine  can  be  identified. 


The  example  of  the  ed_oul  for  the  polynomial_fit  is 


PROC  ed_out  =  (PR0C( CHAR) VOID  addc, 

PROC{  INT  )VOID  addi. 

PROCl GBLOCK  ) VOID  add_gb, 

PICVAL  pv 
)VECTOR[]CHAR: 

(  addi  ( UPB  pv  )  j 

FORALL  pv_i  IN  pv  DO  addi(xOFpv_i )  ;addi  ( yOFpv_i  )0D: 
"polynomial_fit” 

)i 


It  only  uses  the  integer  vector  and  adds  the  upper  bound  of  the  vector 
of  VECI,  followed  by  the  x  and  y  components  of  each  of  the  I /EC1. 
Finally  the  name  of  the  picture  definition  on  the  target  machine  is 
delivered. 

§  8.3A  The  ed_in 


The  Algol68  mode  of  the  procedure  defining  the  ed_in  operation  is 

PROC(PROC  CHAR.  PROC  INT.  PROC  GBL0CK)P1C\/AL 

The  three  procedural  parameters  are  the  procedures  to  remove  values 
from  the  vectors,  the  values  are  removed  in  the  order  in  which  they 
were  added;  the  PICVAL  result  is  the  data  of  the  picture  created 
from  the  values  in  the  three  vectors. 

The  ed_in  procedure  for  the  polynomial  fit  is 


PROC  ed_in  =  (PROC  CHAR  nextc, 

PROC  INT  nexti, 

PROC  GBLOCK  next_gb 
)P  1CVAL  ; 

(PICVAL  pv  -  HEAP  VECTOR[nexti]VECI; 

FORALL  pv_i  IN  pv  DO  pv_i  i»(nexti, nexti )  OD; 
pv 

) 


This  procedure  reads  the  upper  bound  of  the  vector  of  VECl  from  the 
integer  vector,  using  it  to  generate  a  vector  of  the  correct  size.  It 
then  assigns  to  each  element  of  the  vector  in  turn  the  next  two 
elements  from  the  integer  vector. 

§  8A  Transferring  pictures  to  and  from  disc 


If  a  document  containing  a  picture  is  to  be  put  onto  backing  store, 
then  operations  capable  of  placing  the  data  of  the  picture  on  backing 


store  and  retrieving  the  data  of  the  picture  from  backing  store  have 
to  be  defined. 


It  is  possible  to  store  and  retrieve  integers  and  characters  on 
backing  store  and  the  ed_out  and  ed_in  operations  of  the  picture 
provide  a  coding  and  decoding  of  the  data  of  a  picture  into  characters 
and  integers.  If  the  picture  definition  has  no  other  operations 
defined  for  storing  and  retrieving  the  data  of  the  picture  on  backing 
store,  and  it  has  ed_in  and  ed_out  defined,  when  a  picture  is  put 
onto  backing  store  it  uses  ed_in  and  when  it  is  retrieved  from 
backing  store  it  uses  ed_out. 

It  may  be  that  some  pictures  contain  objects  that  cannot  be  coded  into 
integers  and  characters  but  can  be  stored  on  disc,  in  which  case  the 
ed_out  and  ed_in  procedures  would  not  be  suitable  for  coding  the 
data.  To  overcome  this  problem,  it  is  possible  to  define  two  other 
operations,  val_to_disc  and  dis>c_ to__ val  for  transferring  the  data  of 
a  picture  to  and  from  backing  store.  The  decision  as  to  which 
operations  are  used  by  the  Flex  operating  system  when  a  document 
containing  a  picture  is  pul  onto  backing  store  is  as  follows.  If 
val_to_disc  is  defined  then  it  is  used,  otherwise  ed_out  is  used;  if 
neither  of  these  is  present,  then  the  document  cannot  be  stored  on 
backing  store.  If  the  data  of  a  picture  is  stored  using  val_to_disc, 
then  it  is  retrieved  using  disc_to_vaI;  if  it  is  stored  using  ed_out, 
it  is  retrieved  using  ed_in.  If  the  necessary  retrieval  procedure  is 
not  defined  for  the  picture,  then  the  picture  can  not  be  retrieved 
from  disc. 


§  8A.1  The  val_to_disc 


The  Algol68  mode  of  the  procedure  defining  the  vaI_to_disc  operation 
is 

PROC(PICVAL)INT 


Its  parameter  is  the  data  of  the  picture  and  it  delivers  a  disc 
capability  of  its  disc  representation.  In  Algol68  the  disc  capabilities 
are  represented  by  values  of  mode  INT. 


In  the  case  of  the  polynomial  fit  the  procedure  for  transferring  the 
P1CVAL  to  disc  is  simple.  The  PICVAL  consists  of  a  vector  of  pairs 
of  integers  and  pb_to_d  (kept  in  |pb_to_d  i Module j)  accepts  this  as  a 
parameter  and  delivers  a  disc_capability  of  it. 


IPROC  val_to_disc  »  (PICVAL  pv  )1NT  :pb_to_d(  pv  )  ,• 


§  B.W.2  The  disc_to_val 


The  Algol68  mode  of  the  procedure  defining  the  disc_to_val  operation 
is 

PROC(INT)PICVAL 


This  takes  the  disc  capability  of  the  disc  representation  of  data  of 
the  picture  and  should  deliver  the  data  of  the  picture. 


The  disc_to_val  of  the  polynomial  fit  picture  is  again  simple. 


requiring  a  call  of  from_disc  (kept  in  lfrom_disc  .-Module"). 


[PROC  disc_to_val  »  (1NT  d_ptr  )PICVAL  ifrom_disc( d_ptr, (  )) 


§  8.5  Splitting  pictures 


If  a  document  is  being  prepared  for  printing,  it  may  be  necessary  to 
split  it  into  pages.  There  are  procedures  in  the  Flex  operating 
system  to  process  a  document  into  pages  of  some  fixed  length.  The 
boundaries  between  pages  cannot  be  determined  arbitrarily  since  they 
may  lie  in  unreasonable  places,  for  example  in  the  middle  of  a  line  of 
characters. 
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A  line  of  characters  cannot  be  split.  This  is  not  true  of  a  vertical 
composition  of  graphical  blocks,  which  can  be  split  at  any  boundary 
between  the  graphical  blocks  from  which  it  is  formed.  The  decision 
of  where  to  split  a  graphical  block  is  dependent  on  the  type  of 
graphical  block. 

To  determine  where  to  split  a  picture  there  is  an  operation  v_split 
defined  by  an  Algol68  procedure  with  mode 

PROC( PICVAL  pv, 

VECl  size, 

I  NT  ypt, 

INT  place, 

PROC(PICVAL,VECI,INT)GBLOCK  maker 
)5TRUCT(GBL0CK  a.b) 

pv  is  the  data  of  the  picture,  size  is  the  size  of  the  picture  and  ypt 
its  ypt.  place  is  the  displacement  from  the  top  of  the  picture,  where 
the  calling  procedure  would  like  the  picture  to  be  split,  maker  is  a 
procedure  for  making  a  graphical  block  of  the  picture  from  elements 
of  the  data  class  of  the  picture  (c.f.  section  The  making  of  a 
picture  from  a  picture  definition" ).  The  result  of  the  procedure  must 
be  two  graphical  blocks,  the  first  of  which  has  a  height  less  than  or 
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equal  to  place.  These  two  graphical  blocks  represent  the  splitting  of 
the  picture  and  have  the  same  width  as  the  picture.  If  the  picture 
cannot  be  split,  then  the  first  block  should  be  a  graphical  block  of 
size  (8, width  of  picturej  and  the  second  the  graphical  block  of  the 
entire  picture. 

If  a  v_split  procedure  is  not  included  in  a  Picture  Definition,  then  the 
picture  will  not  be  split. 

Following  is  the  v.split  procedure  for  polynomial  fit.  This  is 
artificial  as  it  would  not  normally  make  sense  to  view  a  graph  in  two 
parts 


MODE  P1CVAL  =  REF  VECTOR!] VECI : 

MODE  VSRES  *  STRUCT (GBLOCK  a.b): 

PROC  v_split  =  ( P1CVAL  pv. 

VECI  size, 

INTypt, 

1NT  place, 

PROC(PICVAL,  VECI,INT)GBLOCK  maker 
)  VSRES : 

(  maker (  pv,  (  xOFsize, place  ),vpt  ), 

(REF  VECTOR!  ]  VECI  npv  •  HEAP  VECT0R1UPB  pvJVECl-. 
FORALL  npv_i  IN  npv,  pv_i  IN  pv  DO 
npv_i  :=  (xOFpv_i,  yOFpv_i  -  place) 

OD  j 

maker ( npv,  ( xOFsize,  vOFsize- place  ).0  ) 

) 

) 


This  procedure  decides  to  split  the  picture  at  the  point  indicated  b\ 
place.  It  does  this  by  returning  for  the  first  graphical  block  the  same 
picture  with  a  smaller  vertical  size;  it  can  do  this  using  the 
procedure  maker.  The  second  graphical  block  is  again  the  same 
picture,  only  this  time  the  y  coordinates  of  all  the  points  have  been 
decreased  by  place,  as  has  the  y  coordinate  of  the  size  of  the 
picture.  The  second  graphical  block  is  created  from  a  new  vector 
with  these  new  points. 
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Documents  on  Flex  can  be  used  as  input  to  compilers.  If  such  a 
document  contains  a  picture,  then  it  may  be  necessary  for  the 
compiler  to  interpret  the  picture.  Compilers  can  not  be  expected  to 
interpret  all  possible  pictures.  At  the  time  of  creation  the  compiler 
does  not  know  all  the  pictures  which  it  may  have  to  interpret. 

There  is  an  operation,  called  make  _gcomp_  input  which  can  be  defined 
as  part  of  a  Picture  Definition,  which  provides  an  interpretation  of 
the  picture  for  compilers.  If  this  operation  is  not  included  in  the 
definition  of  a  picture,  the  picture  is  ignored  by  the  compiler. 

Compilers  also  need  to  be  able  to  indicate  where  on  a  document  errors 
occur.  The  Flex  operating  system  does  this  by  means  of  marks.  Marks 
cannot  be  stored  on  disc,  so  that  when  a  document  containing  marks  is 
to  be  stored,  the  document  is  stored  on  disc  as  usual,  but  the  marks 
are  collected  together  to  form  a  data  structure  of  Algo  168  mode 
INDEX,  kept  in  |index_modes_  iModule  .  When  the  document  is 
retrieved  from  disc  the  marks  can  be  folded  back  onto  the  document. 


§  8.6. 1  Marks  and  indices 


A  mark  is  a  vector  of  integers  which  specify  a  location  in  a  document. 
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When  a  compiler  discovers  an  error  in  the  text  of  a  program,  it  has 
to  specify  where  it  is  and  the  message  that  it  wishes  the  user  of  the 
compiler  to  see.  During  a  complete  compilation  it  may  find  more  than 
one  error  and  an  index  is  the  collection  of  all  the  marks  together 
with  their  error  messages. 

§  8.6.2  make_gcomp_input 

make  _gcomp_  input  is  an  operation  of  a  picture  defined  by  a  procedure 
with  Algol68  mode 

PR0C(P1CVAL)INPUTRES 

INPUTRES  is  the  Algol68  mode 

STRUCT(PROC  UNIONfRES,  VOID)  reader, 

PROC  REF  VECTORHINT  current 

) 

This  procedure  is  applied  to  the  data  of  the  picture  and  delivers  two 
procedures  reader  and  current,  reader  is  responsible  for  providing 
understandable  units  to  the  compiler  and  current  is  responsible  for 
marking  the  picture  to  enable  the  compiler  to  mark  errors. 


§  8.6.2. 1  The  reader 

The  reader  is  a  procedure  of  mode 

PROC  UNIONfRES,  VOID) 

It  is  assumed  that  compilers  read  documents  from  start  to  finish 
reading  one  unit  of  data  at  a  time.  The  reader  is  a  procedure  which 
when  called  provides  the  next  unit  of  data  understandable  to  the 
compiler.  If  the  VOID  union  is  delivered  then  the  reader  has  reached 
the  end  of  the  picture.  RES  is  the  mode  of  the  data  acceptable  to  the 
compiler. 

RES  is  a  UNIONfDECLINE,  GBLOCK) 
and 

DECLINE  is  a  STRUCTfUNE  line,  FONT  font,  BITS  mode,  forbid) 

DECLINE  is  essentially  a  line  of  text  with  some  information  about  the 
manner  in  which  it  was  constructed,  for  example  if  a  line  was 
superscripted  this  information  would  be  passed  in  mode.  RES  is  a 
union  of  the  line  and  a  graphical  block 


§  8. 6. 2. 2  The  currpnt 


The  current  is  a  procedure  which  when  called  delivers  the  mark  of 
the  current  position  of  the  reader. 

§  8.6.3  The  folding  of  indices 


Indices  are  represented  by  the  Algot68  mode  INDEX  where 

INDEX  «  REF  V ECTOR  [J  INDEX  ITEM, 

1NDEXITEM  =  STRUCTdNT  place,  INDEXTL  tl), 

INDEXTL  *  UNIONIUNE.  INDEX) 

This  mode  is  a  little  different  from  the  REF  VECTOR  CUNT  of  the 
mark  delivered  by  current  of  make _gcomp_ input.  An  INDEX  is 
essentially  a  set  of  marks  with  a  message  attached  to  each.  In  an 
index,  each  mark  is  represented  by  a  list  of  integers,  place,  instead 
of  the  vector  provided  by  make_gcomp_  input  and  is  terminated  by  a 
message.  This  should  be  thought  of  as  a  many  branch  tree  with  the 
leaves  being  the  messages.  There  is  generally  one  more  integer  in  the 
list  than  there  was  in  the  mark.  This  is  because  the  unit  delivered  by 
make_gcomp_input  can  be  a  line  and  the  index  refers  to  a  point  within 
that  line. 

To  mark  a  picture,  it  is  necessary  to  fold  into  the  picture  all  the 
marks  specified  by  an  index.  This  requires  the  specification  of  an 
operator  in  the  definition  of  the  picture  called  Fold^index  which 
takes  the  data  of  the  picture  and  the  index,  delivering  the  data 
corresponding  to  the  marked  picture. 

The  Algol68  mode  of  the  procedure  defining  fold_index  is 
PR0C(P1CVAL,INDEX)PICVAL 

If  a  picture  is  to  be  marked,  then  it  must  have  the  ability  to  store 
the  marks  as  part  of  its  data. 

Marks  are  not  stored  on  backing  store.  When  a  picture  with  marks  is 
put  onto  backing  store,  it  is  necessary  to  store  the  unmarked  version 
of  the  data  of  the  picture,  delivering  an  index  to  the  marks  in 
addition  to  the  disc  capability  of  the  coding  of  the  unmarked  data. 
When  the  data  of  the  picture  is  retrieved  from  backing  store,  the 
marks  can  be  added  to  the  data  using  fold_  index.  To  store  the  data  of 
the  picture  separately  from  its  marks  requires  the  definition  of  an 
operator  in  the  picture  definition  called  to_disc,  to  do  this. 
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The  Algo  1 68  mode 

where  GBDRES  - 


of  the  procedure  defining  to_disc  is 

PROC<PICVAL)GBDRES 
STRUCT(1NT  disc,  INDEX  index) 


disc  is  the  disc  capability  of  the  coding  of  the  data  of  the  pictui 
and  index  is  the  index  of  marks  of  the  picture. 


§  9  Internal  graphical  blocks 


In  the  cases  of  vertical  and  horizontal  composition  of  graphical 
blocks,  the  operations  of  the  composite  block  are  expressed  in  terms 
of  the  internal  blocks.  For  example  the  displayer  of  a  horizontal 
composition  is  dependent  on  the  displayers  of  each  of  the  component 
blocks. 

It  is  possible  for  pictures  to  be  recursively  defined  in  the  same 
manner,  that  is  pictures  can  be  composed  from  other  graphical 
blocks,  and  there  is  a  means  of  using  the  operations  of  an  interna! 
block  from  with  an  operation  of  the  picture. 

For  each  operation  in  the  abstract  structure  of  a  graphical  block 
there  is  a  procedure,  available  to  the  procedures  defining  the 
picture  operations,  to  apply  the  operation  to  the  block.  This  section 
describes  how  to  apply  these  operations  to  the  internal  blocks. 


§  9.1  The  internal  displayer 

The  procedure  for  displaying  internal  graphical  blocks  is  disp_gb  and 
is  kept  in  the  module  3Isp_gb_m  :  Module'.  It  is  a  value  of  mode 

PROCfDlSPL A  YFRAME,  IRT, CBL OCK.FOR T.B1  TS)  VOID 

It  is  a  value  of  similar  mode  to  the  displayer  of  the  picture.  FORT 
and  BITS  are  historical  and  unused  by  the  procedure,  CBLOCK  is  the 
internal  graphical  block,  IRT  is  the  magnification  at  which  the  block 
is  to  be  displayed,  and  DISPLAYFRAME  is  its  display  frame. 

The  display  frame  of  graphical  block  is  the  structure  holding 
information  on  where  to  display  the  block.  The  display  frame  of  an 
internal  block  depends  on  the  display  frame  of  the  picture  and  where 
the  internal  block  is  within  the  picture. 

To  determine  the  display  frame  of  the  internal  graphical  block,  there 
is  a  procedure  called  inner _  frame  kept  in  ldisplay_fram  -.Module!  of 
mod  i  PROC(DISPLA  YFRAME, RECT)DISPLA  YFRAMT. -  - 
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In  this  example  the  display  frame  of  the  internal  block  is  determined 
by  the  display  frame  of  the  picture  and  the  rectangle  (tl,si^e). 

§  9.2  The  internal  editor 

The  procedure  for  editing  internal  graphical  blocks  is  edit_gb  and  is 
kept  in  the  module  ipicjedit_gb_  :Module.  It  is  a  value  of  AI90I68 
mode 

P  ROC  (PICTURE  FRAME,  l  NT,  GBLOCKJGBEDITRES 

where 

CBED1TRES  =  STRUCT  (BOOL  altered,  INT  reason,  GBLOCK  ghlock) 

It  is  the  direct  parallel  of  the  editor  of  the  picture  only  it  edits  a 
graphical  block  instead  of  the  data  of  a  picture. 

The  major  problem  of  using  the  editor  of  an  internal  graphical  block 
is  in  the  provision  of  the  PICTUREERAME  parameter.  The  picture 
frame  of  the  picture  holds  information  on  the  context,  of  the  picture, 
i.e.  information  on  what  is  outside  of  the  picture.  The  same  must  be 
true  of  the  picture  frame  of  the  internal  block  editor,  and  the 
picture  frame  of  the  internal  block  can  be  calculated  from  the  picture 
frame  of  the  picture  plus  information  about  the  area  between  the 
boundaries  of  the  picture  and  the  internal  graphical  block. 


The  information  that  must  be  provided  to  create  a  pictureframe  for 
the  internal  block  is  where  it  is,  provided  by  means  of  a  rectangle 
(tl,  size),  how  to  display  the  shaded  area  and  what  the  picture  should 
do  if  the  internal  graphical  block  should  request  an  expansion, 
provided  by  means  of  two  procedures. 


§  9.2.1  The  display  procedure  in  the  creation  of  a  PictureFrame 

The  display  procedure  required  in  the  creation  of  a  picture  frame  is 
responsible  for  displaying  the  picture  in  the  area  outside  of  the 
internal  block. 

As  the  internal  block  is  edited,  it  may  expand  or  contract  and  change 
its  form,  making  the  area  to  be  displayed  different  at  different  calls 
of  the  displayer.  Since  the  displayer  does  not  have  to  display  the 
interna!  block,  it  does  not  need  to  know  what  changes  are  made  to  the 
internal  block,  it  only  needs  to  know  where  the  internal  block  is.  This 
is  passed  to  the  displayer  as  a  parameter. 

The  Algol68  mode  of  the  display  procedure  is 

PROC(RECT  red,  RECT  internal)V01D 
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The  display  procedure  should  display  everything  that  is  in  red  but 
not  in  internal. 

§  9.2.2  The  expand  procedure  in  the  creation  of  a  Picturerrame 

The  expand  procedure  has  an  AlgolBS  mode  of 

PROCfRECT  internal.  VECI  amountlBOOL 

internal  is  the  rectangle  occupied  by  the  internal  graphical  block, 
amount  is  the  size  of  the  expansion  requested  by  that  block  and  can 
either  be  positive  or  negative  depending  on  whether  an  expansion  or 
contraction  is  requested.  The  purpose  of  the  procedure  is  firstly  to 
determine  whether  or  not  the  requested  expansion  can  be  allowed  and 
secondly  to  make  any  changes  to  the  picture  that  are  necessary  to 
accommodate  the  expansion.  The  BOOL  result  is  whether  or  not  the 
expansion  is  allowed.  A  contraction  is  always  allowed. 

If  an  expansion  is  allowed,  it  is  a  requirement  of  the  expand 
procedure  that  it  clears  an  area  for  the  internal  block  to  expand  into. 
The  clearing  of  this  area  may  make  it  neccessary  to  increase  the  size 
of  the  picture. 
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. expansion  of  picture 

If  the  picture  has  to  expand  it  will  have  to  expand  using  the  operator 
EXPAND  as  described  in  the  section  on  the  editor.  If  the  picture  can 
accommodate  the  increase  in  size  of  the  internal  block  it  should  clear 
the  space  required  by  the  internal  block  and  deliver  TRUE ,  otherwise 
it  should  do  nothing  and  deliver  F ALSE. 

If  the  internal  graphical  block  wishes  to  contract,  it  will  have 
already  cleared  the  space  from  which  it  has  contracted.  The  expander 
should  then  move  any  objects  it  desires  into  the  resulting  space  and 
if  this  results  in  a  decrease  in  size  of  the  picture,  it  should  call  the 
operator  EXPAND  to  reduce  its  size. 

There  is  a  restriction  on  the  expand  procedure.  A  contraction  of  the 
internal  block  cannot  produce  an  expansion  of  the  picture.  This 
restriction  is  forced  because  the  internal  block  assumes  that  its 
contraction  will  be  allowed  and  an  expansion  of  the  picture  might  not 
be  allowed. 

The  procedure  for  creating  the  picture  frame  for  the  internal 
graphical  block  is  rtew_  frame  kept  in  ipicture_f  ram  tModule'.  Its 
Algol68  mode  is 

PROCf  RECT  place. 

PROCfRECT.  VECI1B00L  expande 
PR0C(RECT.RECT)V01D  displaver, 
P1CTUREFRAME  pf 
1PICTUREFRAME 

place  is  the  rectangle  of  the  internal  block,  the  expander  is  the 
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expand  procedure,  displayer  is  the  display  procedure  and  pf  is  the 
picture  frame  of  the  picture.  The  picture  frame  of  the  internal  block 
is  delivered. 

§  9.2.3  Regular  PictureFrames 


In  many  cases,  the  required  picture  frame  of  an  internal  graphical 
block  takes  one  of  three  forms.  To  cater  for  these  three  common 
cases  there  are  three  procedures  to  create  the  picture  frames.  All 
the  procedures  require  a  displayer  and  this  should  be  of  the  Algol68 
mode  PROC(DISPLAYFRAME)\/01D  and  should  consist  of  the  displayer 
of  the  picture  with  the  data  of  the  picture  and  the  magnification 
bound  to  it. 

The  problems  of  creating  new  picture  frames  rest  solely  with 
expansion!  if  there  were  no  expansion  then  there  would  be  no 
expander  and  the  display  procedure  could  be  deduced  from  the 
displayer  of  the  picture.  The  three  procedures  to  create  picture 
frames  reflect  three  different  methods  of  expansion  and  are  kept  in 
the  module  x_and_y_f ram  (Module  . 

The  first  form  of  expansion  is  one  that  preserves  horizontal  lines. 


empty  space 

internal 
graphical  block 

x_  line 


-picture 


If  the  internal  graphical  block  expands  in  the  y-direction,  then 
everything  below  it  is  moved  in  that  direction  ty  the  amount  of  the 
expansion  and  the  picture  has  to  expand  by  the  same  amount.  If  there 
is  an  expansion  in  the  x-direction,  then  tlte  internal  block  expands 
freely  until  it  gets  to  the  x_line.  The  x_line  is  the  right  most  line  of 
the  picture,  not  including  the  internal  block  i  expansions  of  the 
internal  block  beyond  the  x_line  cause  corresponding  expansions  in 
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the  picture.  The  procedure  to  create  this  form  of  pictureframe  is 
y_r>ew_  frame  and  is  of  mode 

PROC(RECT  internal, 

PROCiDlSPLA  YFRAME)VO!D  displayer, 

INT  x_line, 

PICTUREFRAME  pf 
) PICTUREFRAME 

There  is  a  procedure  of  identical  mode  for  creating  pictureframes 
preserving  vertical  lines  defined  in  a  similar  manner  called 
x_new_f  rame. 

The  third  form  of  expansion  preserves  horizontal  and  vertical  lines. 


The  x_line  and  y_line  must  be  beyond  the  internal  graphical  block  and 
there  must  be  empty  space  between  the  block  and  these  lines.  The 
internal  block  is  allowed  to, expand  freely  until  it  meets  either  the 
x_line  or  the  y_/ine,  in  which  case  everything  beyond  them  is  shifted 
to  the  right  or  the  left  causing  an  expansion  of  the  picture. 
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This  is  illustrated  in  the  following  diagram. 
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The  procedure  to  create  such  a  picture  frame  is  xy_new_  frame  and  is 
of  mode 


PROCfRECT  internal, 

PR0C(DISPLAYFRAME)V01D  displayer, 

INT  x_line,  y^line, 

PICTUREERAME  pf 
)P1CTUREERAME 

§  9.3  Transferring  pictures  to  other  machines 

To  transfer  an  internal  graphical  block  between  machines  involves 
placing  it  in  the  three  vectors  of  INT.  CHAR  snd  GBLOCK.  Since  an 
internal  graphical  block  is  represented  by  a  GBLOCK,  it  can  be  stored 
in  the  GBLOCK  vector. 

§  9.4-  Transferring  pictures  to  and  from  disc 

There  is  a  procedure  gb_to_disc,  kept  in  |gb_to_disc_m  tModule!, 
with  Algol68  mode  PROC(GBLOCK,  VECDGBDRES:  where  G  BORES' Vs  a 
STRUCT(INT  disc,  INDEX  index).  The  VECI  parameter  is  irrelevant. 
The  procedure  takes  a  graphical  block  and  delivers  a  disc  capability 
for  its  backing  store  coding  and  Bn  index.  For  further  details  on  the 
index  see  the  section  on  using  pictures  as  input  to  compilers. 

To  retrieve  a  graphical  block  from  disc,  there  is  a  procedure 
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dif>c_to_gb ,  (kept  in  |disc_to_gh_m  :Module)  of  mode 
PROC(INT,F  0NT)DTGRE5~. 

The  INT  parameter  is  the  disc  capability  of  the  backing  store  coding 
of  the  graphical  block,  and  the  FONT  parameter  is  irrelevant. 
DTCRES  is  a  STRUCT(GBLOCK  gb.VECI  tlcursor);  gb  is  the  graphical 
block  retrieved  from  disc  and  tlcursor  can  be  ignored. 

§  9.5  Splitting  pictures 

To  split  graphical  blocks  internal  to  a  picture,  there  is  a  procedure 
vs plit,  kept  in  [vsplit  sModule,  of  Algol68  mode 

PROC(GBLOCK  gb,  INT  place,  FONT  ft)S TRUCT(GBLOCK  a.b) 

This  procedure  attempts  to  splits  gb  into  two  graphical  blocks  a  and 
b  at  the  point  place,  ft  is  not  used. 

§  9.6  Using  pictures  as  input  to  compilers 


To  provide  the  compiler  input  of  a  graphical  block  there  is  a 
procedure  make_input  of  mode  PROC(GBLOCK)INPUTRES,  kept  in 
|pic_make_inp  :Moduler  which  delivers  two  procedures,  one  for 
providing  units  understandable  to  the  compiler  and  the  other  for 
marking  the  internal  block. 

Similarly  there  is  a  procedure  fold,  kept  in  |fold_m  tModule',  of  mode 
PROC(GBLOCK, INDEX, FONT)GBLOCK  which  folds  the  index  parameter 
into  the  internal  block.  The  font  parameter  is  unused. 

To  store  a  marked  graphical  block  on  disc,  the  procedure 
gb_to_disc,  as  described  in  the  section  on  transfer  to  and  from  disc, 
is  used.  The  index  delivered  as  part  of  the  result  of  gb_to_disc  is  an 
index  to  the  set  of  marks  in  the  internal  block. 


§  18  A  simple  structure  editor 


To  illustrate  some  of  the  more  complex  operations  that  can  be  applied 
to  pictures,  the  displayer  and  editor  of  a  small  structure  editor  will 
be  discussed  in  some  detail. 

The  editor  is  intended  to  be  one  that  manipulates  the  structure  of  a 
simple  program  language.  It  is  not  intended  to  be  realistic,  but  only 
to  illustrate  the  points  about  graphics  being  made. 

The  program  language  consists  of  sequences  of  statements,  with  a 
statement  being  either  an  assignment  or  a  conditional.  A  conditional 
consists  of  three  sequences-,  the  condition,  the  sequence  obeyed 
when  the  condition  is  true  and  the  sequence  obeyed  when  the 
condition  is  false. 

This  structure  can  be  represented  by  the  Algol68  mode  SEO  where 

SEO  =  REF  1/ ECTOR  []S  TA  FEME  NT 
STATEMENT  -  UNION(ITEF,  ASCMT) 

1TEF  «  STRUCT  (SEO  condition,  t,  f) 

ASGMT  «  STRUCULINE  Ihs,  rhs) 

The  size  of  the  graphical  representation  of  any  picture  is  important. 
In  the  case  of  the  structure  editor  this  is  determined  entirely  by  the 
data  of  the  picture  (cf.  the  polynomial  fit  which  is  not),  and  its  size 
is  determined  by  the  manner  in  which  the  data  is  displayed. 

A  value  asgmt  of  mode  ASCMT  is  displayed  as  the  concatenation  of  the 
three  vectors  of  characters  IhsOFasgmt,  '  i«  ",  and  rhsOFasgmt,  in 
standard  font.  Every  character  in  standard  font  is  size  (9,15),  making 
the  size  of  asgmt 

((UPB  IhsOFasgmt  *  UPB  rhsOFasgmt  *k)*9,  15) 

A  value  seg  of  mode  SEO  is  displayed  by  displaying  each  of  its 
statements  vertically  above  each  other  with  a  left  justification.  In 
the  case  where  there  are  no  statements  the  vector  of  characters 
"SKIP",  in  standard  font  is  displayed.  So  the  procedure  for 
determining  the  size  of  a  s eg  is 

IF  UPB  seq  *  0  THEN  (36,15) 

ELSE 

(maximum  of  x  components  of  seq, sum  of  y  components  of  seq) 

FI 
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A  value  itef  of  mode  ITEF  is  displayed  as  follows 


making  its  size 
(the  maximum  of 

(27  (size  of  "If  "}  *  x-component  OF  conditionOFitef, 

45  (size  of  "THEN  " }  ♦  x-component  OF  tOFitef, 

45  (size  of  "ELSE  “ )  ♦  x-component  OF  f OF itef), 
sum  of  y  components  of  condition.t  and  f  of  itef*  15  (size  of  "FI  " }  ). 

The  sizes  of  the  various  structures  can  always  be  calculated  using 
the  above  algorithm,  but  to  avoid  recalculation  of  these  sizes,  they 
are  stored  in  the  data  structure,  making  the  actual  mode  of  the  values 
manipulated  by  the  structure  editor 

CSEQ  •  STRUCTfVECI  size,  REF  VECTOR  [JCSTA  TEMENT  seq) 
GSTATEMENT  *  STRUCT! VECI  size,  UN10N(GITEF,  GASGMT)  s tat) 
C1TEF  .  STRUCT(VEC)  size.  CSEO  condition,  t,  f) 

GASGMT  -  STRUCT! VECI  size.  LINE  Ihs,  rhs) 


§  19. 1  The  displayer  of  GSEQ 

The  manner  in  which  a  value  of  mode  GSEQ  (a  sequence)  is  to  be 
displayed  is  that  each  statement  in  the  sequence  will  be  displayed 
one  below  the  other  with  a  left  justification.  If  there  are  no 
statements  in  the  sequence  then  the  word  "SKIP"  will  be  displayed.  No 
matter  what  the  font  of  the  document  in  which  it  is  contained,  the 
font  of  a  GSEQ  will  be  the  standard  font.  Each  character  of  the 
standard  font  is  9  pixels  wide  and  15  pixels  high.  This  makes  the  size 
of  “SKIP"  36  x  15. 

When  a  displayer  is  called,  it  is  not  always  required  to  display  the 
complete  picture  (e.g.  in  scrolling  the  screen  where  usually  only  a 
small  part  of  the  picture  needs  to  be  displayed).  For  each  part  of  the 
picture,  it  is  worth  calculating  whether  or  not  that  part  of  it  is 
required  to  be  displayed.  For  example,  display_seq,  the  displayer  of 
GSEQ  is  written  in  terms  of  display_  statement,  the  displayer  of  a 
GSTATEMENT.  It  would  be  possible  to  write  the  displayer  of  GSEQ  by 
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calling  display  _  statement  on  each  of  the  statements,  even  though 
some  of  the  statements  ma.\  not  lie  in  the  area  to  be  displayed.  This 
relies  on  display _  statement  being  able  to  determine  whether  or  not  it 
has  to  display  the  statement.  If  this  attitude  is  adopted  consistently 
it  is  only  procedures  which  actually  write  directly  to  the  screen 
(display  _seq  does  not  write  to  the  screen,  but  calls  other 
procedures  to  do  so)  that  have  to  decide  whether  or  not  they  have  an 
area  to  write  to.  In  this  case  it  takes  almost  as  long  to  display  a 
small  part  of  the  sequence  as  it  does  to  display  it  in  its  entirety  . 

For  this  reason,  except  for  the  displaying  of  "SKIP  ,  if  a  statement 
does  not  lie  in  the  area  to  be  displayed,  display  _  statement  is  not 
called  to  display  it. 

The  procedure  for  displaying  GSEQ  treats  SKIP  as  a  special  case.  In 
the  displaying  of  the  sequence,  it  finds  the  first  statement  that 
intersects  the  area  of  the  picture  which  is  to  be  displayed  and 
continues  displaying  until  it  is  below  that  area,  firstly  checking  that 
the  statement  to  be  displayed  is  not  entirely  to  the  left  of  the  area 
to  be  displayed.  ' 
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PROC  display_seq  =  (DISPLAYPRAWE  frame,  IKIT  mag,  GSEQ  seq)V01D: 

(  RECT  visible_rect  =  VIS1BLERECT  frame  j 
REF  VECTOR  [1GSTATEMENT  seq  =  seqOFseq ; 

INT  top  =  yOFtlOFvisible_rect, 

bottom  =  top  ♦  yOFsizeOFvisible_rect, 
left  »  xOFt!OFvisible_rect, 
u  *  UPB  seq ; 

IF  u  =  0  THEN  (No  Statements) 

GBLOCK  gb  =  f  lgb{  -SKIP",  standard.ft ) :  (make  GBLOCK  for  "SKIP”) 
RECT  skip_rect  =  ( (0,0),  (36, 15  > ) ;  (rectangle  occupied  by  "SKIP") 
disp_gb(  inner_f rame(  f rame,skip_rect  ),mag,gb,standard_ft ,  16r0  ) 
ELSE 

INT  start  :=  0, place  s  =  1 : 

(place  is  the  number  of  the  current  statement 
start  is  the  position  of  the  top  of  the  current  statement } 

WHILE 

INT  depth  =  start  ♦  y  OF  (size  OF  seq  [place]  )j 
place  <  u  AND  depth  <=  top 
DO 

place  •*:=  l;start  :=  depth 
OD ; 

(find  the  first  statement  in  the  visible  rectangle) 

WHILE  start  <=  bottom  AND  place  <*  u  DO  (Whilst  in  visible  rect) 
VECI  size  =  size  OF  seq  [place]  ; 

IF  xOFsize  >  left  THEN  (statement  is  not  entirely  to  left  of  area) 
RECT  stat_rect  =  ( (0, start ), size  ) ; 

(rectangle  occupied  by  statement) 
display_stat(  inner_f rame(  f rame,stat_rect ), mag, seq  [  place]  ) 
FI  j 

start*  :«y  OF  (size  OF  seq[place]); 
place* :  =  1 
OD 
FI 

) 


i  10.2  The  editor  of  GSEQ 


The  general  manner  in  which  editors  on  Flex  operate  is  to  read  an 
action  code  from  the  puck/keyboard;  if  the  code  is  a  value  which  the\ 
can  act  upon,  they  do  so,  otherwise  they  pass  it  back  as  an  action 
code  to  the  calling  editor.  The  action  code  continues  to  pass 
outwards  until  it  reaches  an  editor  which  can  act  upon  it.  This 
editor,  having  taken  the  action,  recalls  the  editors  of  internal 
graphical  blocks  until  it  reaches  the  editor  of  a  bottom  level  object. 
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This  has  the  effect  of  making  the  structure  of  graphical  objects 
transparent  to  the  user. 

One  of  the  purposes  of  the  structure  editor  is  to  make  the  structure 
visible.  This  is  achieved  by  making  the  picture  a  bottom  level  object 
and  it  does  not  immediately  call  any  further  editors.  If  it  is  desired 
to  move  down  the  structure  of  the  picture,  then  this  is  done 
explicitly  by  pressing  the  examine  key  on  the  puck.  Any  other  key  will 
cause  the  editor  to  be  left  with  the  action  code  set  to  the  value  of 
the  key  pressed.  The  editors  called  by  the  picture  editor  can  only  be 
left  explicitly,  by  pressing  the  result  button  on  the  puck,  and  in  this 
manner  they  indicate  the  structure  of  the  picture. 

Some  system  procedures  mark  documents,  this  is  to  indicate  places  of 
interest  in  the  document  such  as  a  compilation  error.  These  marks  are 
found  using  the  tab  key.  If  the  editor  is  called  with  the  reason  of 
find_next_mark  then  it  is  looking  for  one  of  these  marks.  There  is  no 
general  procedure  for  putting  marks  into  pictures,  but  if  desired 
they  can  be  put  into  the  underlying  data  structure.  This  is  not  done  in 
the  picture  of  GSEQ  so,  when  looking  for  marks,  the  editor  is  left 
immediately.  The  editor  is  left  with  the  action  of  find_next_mark 
informing  the  calling  editor  that  it  has  to  look  for  a  mark  in  the 
remainder  of  the  document. 

If  the  editor  is  entered  with  a  reason  of  find_string  it  is  searching 
for  a  string  of  characters  in  the  document.  The  string  is  not 
available  to  the  picture  editor  so  it  is  left  immediately  without 
altering  anything.  The  action  passed  to  the  calling  editor  is 
find_string  informing  it  to  look  for  the  string  in  the  remainder  of  the 
document . 

If  the  editor  is  entered  for  any  other  reason,  it  puts  the  cursor  on 
the  entire  GSEQ  showing  the  outermost  level  of  the  structure,  moves 
the  document  to  include  the  cursor  in  the  window  and  reads  the 
puck/keyboard.  This  level  of  the  editor  only  responds  to  one  key, 
examine,  which  causes  this  editor  to  edit  the  seq  and  then  read  the 
keyboard/puck  again.  All  other  responses  are  passed  backwards  to  the 
calling  editor  for  it  to  act  upon. 


There  is  no  need  to  make  a  new  picture  frame  to  pass  to  the  editor  of 
the  sequence,  since  this  has  the  same  frame  as  the  picture. 


MODE  EED1TRES  =  STRUCT(BOOL  altered, 1NT  reason,  GSEQ  picval  ); 

PROC  editor  =  (PlCTUREERAME  frame, INT  reason, PICVAL  gseq  )EED1TRES : 
IF  reason  =  find_next_mark  OR  reason  =  find_string  THEN 
(FALSE, reason, gseq  )  {leave  editor  with  no  change) 

ELSE 

REF  VECTOR  HGSTATEMENT  seq  =  seqOFgseq  ; 

REF  VECTOR  UGSTATEMENT  nseq  s  = 

HEAP  VECTOR [UPB  seqlGSTATEMENT  :=  seq; 
{copy  sequence) 

ref_display_seq  :=  display_seq-, 
ref_edit_seq  :=  edit_seq: 

{assignment  for  recursive  calls) 

BOOL  altered  :=  FALSE;  (stores  alteration  to  sequence) 

INT  action ; 

PROC  display  =  (RECT  r)V01D: 

display_seq(DISPFRAME  frame  RESTRICT  r,l,(SlZE  frame. nseq  ) )  ; 

{local  displayer) 

WHILE  set_cursor_rect(  frame,  ((0,8),  SIZE  frame)); 

{put  cursor  on  entire  sequence) 
action  .■*  read( frame, display ) ;  {read  keyboard) 

IF  action  =  examine  THEN 
{If  action  is  examine  then  edit  sequence) 

EDITRES  er  «  edit_seq(  frame.  (SIZE  frame, nseq  ) ) ; 
nseq  s  *  seqOFseqOFer  ;  {store  result } 
altered  :*  altered  OR  alteredOFer  jTRUE 
{record  alteration  and  repeat) 

ELSE 

FALSE  { leave  editor ) 

FI 

DO  SKIP  OD; 

(altered,  action,  (SIZE  frame.nseq)) 

FI 


§  10.2. 1  edit_seq 


edit_seq  is  the  editor  of  a  sequence.  It  is  designed  to  show  the 
structure  of  the  picture  and  so,  like  its  calling  editor,  will  not  go 
deeper  into  the  structure  unless  explicitly  told  to  by  pressing  the 
examine  key  on  the  puck.  Similarly,  the  editor  can  only  be  left  by 
being  told  to  explicitly,  by  pressing  the  result  button  on  the  puck. 

The  operations  of  edit_  seq  Bre  quite  simple.  On  entry  the  cursor  is 
placed  on  the  first  statement  of  the  sequence,  from  where  it  has  the 
ability  to  move  up  and  down  through  the  sequence.  Statements  can  be 
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inserted,  deleted  or  edited  and  finally  the  editor  can  be  left  by 
pressing  result. 


PROC  edit_seq  =  (P1CTUREFRAME  frame,  GSEO  gseq  JEDITRES : 

(  REF  VECTOR  HGSTATEMENT  nseq  =  = 

HEAP  VECTOR  [UPB  seqOFgseqlGSTATEMENT  :=seqOFgseq  ; 
{copy  gseq ) 

INT  u  :=  UPB  nseq  ;  {number  of  statements) 

INT  statno  :=  u  MIN  1 ;  {index  of  current  statement  in  vector) 

PROC  max  =  INT  :|Edfile 

{procedure  delivering  maximum  width  of  statements  not  including 
the  current  statement } 


INT  pi  :  =  0;  {The  top  of  the  current  statement) 

BOOL  altered  :  =  FALSE:  {records  alterations) 

INT  action,-  {the  most  recent  read  of  the  puck /keyboard) 

PROC  display  =  (RECT  r  )V01D: 

display_seq(DISPFRAME  frame  RESTRICT  r ,  1 ,  ( SIZE  frame, nseq  ) ) ; 

{local  displayer) 


set_cursor_rect  (  f  rame , 

( (0,  0),(u*0  '(36,15)  'sizeOFnseq [statno)  ) ) )  ,• 

{set  cursor  to  cover  the  first  statement) 

WHILE 


action  :  =  read(  frame, display  ) ;  {read  puck/keyboard } 

IF  action=examine  THEN  EdfTTeT ;  TRUE 

ELIF  action=result  THEN  FALSE  {If  action  is  result  leave  editor) 
ELIF  action=move_up  THEN  Edfile;TRUE 
ELIF  action=ins_asgmt_abv  UHtL  action=ins_itef_abv  THEN 
fdfWiTRUE 

EL  If  action=ins_itef_bel  OREL  action=ins_asgmt_bel  THEN 
|Edfile,:TRUE 

ELIF  action*delete  THEN  Edfile  ;TRUE 
ELIF  act i on =move _down  THEN  Edfile  ;TRUE 

ELSE  beep; TRUE  - ‘ 

FI 

DO  SKIP  OD; 

(altered, action,  (SIZE  frame, nseq  ) ) 


) 


To  illustrate  the  operations  of  edit_seq  the  effects  of  examine  and 
delete  will  be  considered  in  some  detail. 

5  19.2.1.1  The  effect  of  examine 

When  examine  is  pressed  on  the  puck,  if  the  sequence  is  not  empty, 
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then  the  current  statement  is  edited,  the  result  of  the  edit  is  stored 
and  if  there  has  been  an  alteration  to  the  statement  this  is  recorded 
by  setting  altered  to  TRUE.  Finally  the  cursor  is  put  on  the  new 
statement. 


IF  u  -  0  THEN  beep  ELSE 
PICTUREFRAME  new_pic_f rame  = 
y_new_frame(  ( ( 0, pi ) ,  sizeOFnseq [statno]  ), 

(D1SPLAYFRAME  df  )V0!D: 

display_seq(  df ,  1 ,  ( SIZE  f  rame.nseq  ) ), 
max, 
f  rame 

\ 

/  » 

SEDITRES  er  =  edit_statement( new_pic_frame,  nseq [statno]  )j 
nseq [  statno] :  =  stalOFerj 
altered  :=  altered  OR  alteredOFerj 

set_cursor_rect(  frame,  ( (0,  pi),  SIZE  new_pic_f  rame  ) ) 

FI 


§  10.2. 1 .2  The  effect  of  delete 

There  are  three  cases  to  consider  when  deleting  a  statement  from  a 
sequence.  When  there  are  no  statements  in  the  sequence  delete 
performs  no  action.  When  there  is  only  one  statement  it  is  deleted 
and  replaced  with  SKIP".  When  there  is  more  than  one  statement  it  is 
deleted.  If  the  deleted  statement  was  not  the  last  in  the  sequence, 
the  new  current  statement  is  the  one  following  the  deleted  statement, 
otherwise  it  is  the  preceding  one. 

When  a  statement  is  deleted  the  sequence  will  have  to  contract.  The 
deletion  of  a  statement  can  be  viewed  as  the  contraction  of  that 
statement  to  size  (0,0)  or  the  size  of  "SKIP",  depending  on  whether 
or  not  it  is  the  only  statement  in  the  sequence.  For  this  reason  a 
picture  frame  is  made  for  t,  .e  current  statement  and  this  is 
contracted.  The  rule  of  clearing  the  area  from  which  the  statement 
contracts  is  obeyed  and,  if  there  are  no  statements  left  in  the 
sequence,  "SKIP"  is  displayed. 

The  values  recorded  in  statno,  u  and  pi  are  updated,  the  new  value  of 
the  data  recorded  in  nseq  and  altered  set  to  TRUE. 


67 


IF  u  *  0  THEN  beep  ELSE  {If  no  statements  then  beep) 

VECI  crtsize*size  OF  nseq [statno]  i  (size  of  current  statement) 
P1CTUREFRAME  new_pic_frame  =  (picture  frame  of  current  stat) 
y_new_frame  (  ( (0,pl  ),  crtsize), 

(DISPLAYFRAME  df  )V01D: 

display_seq(df ,  1,(S1ZE  frame, nseq  ) ). 
max, 
f  rame 
); 

fili_frame<DISPFRAME  frame  RESTRICT  RECT(  (0, pi ). crtsize  ),  1  ), 
{clear  rectangle  of  current  statement) 

IF  u=  1  THEN  (special  case  as  delivers  ‘SKIP’} 
new_pic_frame  EXPAND  VECI(36,  15)-crtsize; 

(contract  current  statement  by  its  size  -  size  of  'SKIP'  ) 
nseq  i*  seqOFempty_seq  i  stalno  i*  li  u  t-0; 

(assign  empty  sequence  to  n_seq,  set  and  u  to  0) 
set _cursor_rect{  frame,  ( (0,pl ),  ( 36, 15 ) ) )  t 
(put  cursor  on  "SKIP") 
altered  i>=TRUE;  (record  alteration) 
display_seq(DISPFRAME  frame,  1 ,  (SIZE  frame.nseq)) 

(display  SKIP) 

ELSE 

new_pic_frame  EXPAND  -crtsize: 

(reduce  statement  size  to  (0,6)) 

REF  VECTOR  UGSTATEMENT  t  *  HEAP  VECTOR  [u  -  1  ]GSTATEMENT , 
t  [  1 :  statno  -  1  ]  i «  nseq  [  1 :  statno  -  1  ]  i 
(make  new  vector  of  statements) 

IF  statno-u  THEN 

(If  last  statement  then  make  current  statement  the  one  before) 
pi  -i*  yOFsizeOFnseq [statno  1) 

ELSE  (make  current  statement  the  one  after) 

t[statno:u  -  1]  i s  nseqtstalno  ♦  l:u) 

Fh 

nseq  tiu  -i*  1;  altered  :*  TRUE; 

(assign  new  sequence  to  nseq,  reduce  u  by  1  and  record 
alteration) 

set_cursor_rect(  frame,  ( ( 0, pi ),  si zeOFnseqt statno)  ) ) 

(put  the  cursor  on  the  new  current  statement) 

FI 

FI 
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§  11  Declaring  Fie*  Picture  Procedures 

There  is  a  procedure  called  dec_picture„fns,  for  use  with  pictures, 
which  is  kept  in  the  common  dictionary  on  flex.  Its  curt  mode  is 
Filed(Oictionary  ->  Void).  It  names  and  keeps  further  procedures  for 
use  with  pictures.  They  are  kept  in  the  dictionary  supplied  as  a 
parameter  to  the  procedure  and  any  PictureDefinitions  created  using 
them  will  also  reside  in  that  dictionary. 

new_picture_defn  for  making  a  new  PictureDefinition. 

amend_picture_defn  for  changing  a  PictureDefinition 

make_picture_maker  which  takes  a  PictureDefinition  delivering  a 
Compiledpair  keeping  the  procedure  for 
making  pictures. 

There  are  procedures  for  use  in  Control  A  whilst  the  cursor  is  on  a 
picture  s 

recover_edfile  which  delivering  the  Edfile  of  the 

PictureDefinition  from  which  the  picture  was 
created. 

recover_picture_defn  which  delivering  the  PictureDefinition  from 
which  the  picture  was  created. 


return_value  which  delivers  the  data  structure  of  the 

picture. 
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§  12  Conclusion 


The  Flex  implementation  of  documents  described  in  this  paper  has 
been  used  by  various  groups  at  RSRE.  At  present  pictures  are  being 
created  to  draw  circuit  diagrams  corresponding  to  ELLA  descriptions 
of  hardware  [J.  D.  Morison,  N.  E.  Peeling  and  T.  L.  Thorp,  1985]  to 
draw  MASCOT  diagrams  [MASCOT  Official  Handbook,  1987]  and  to  draw 
Z  specification  schema. 

In  addition  to  these  specific  uses  of  pictures,  there  are  more  general 
pictures  to  augment  the  Flex  editor.  These  include  pictures  for 
drawing  graphs  and  pictures  for  drawing  diagrams. 

The  uses  that  have  already  been  made  of  pictures  illustrate  that 
pictures  can  be  used  both  to  give  a  visual  representation  to  already 
existing  data,  as  in  the  case  of  the  ELLA  circuit  diagrams;  and  also 
to  enhance  the  general  editing  facilities  of  the  existing  editor. 

There  will  be  ah  implementation  of  pictures,  defined  in  terms  of 
Tenl5  [P.  W.  Core  and  J.  M.  Foster,  1986].  Tenl5  can  express 
procedure  values,  enabling  a  similar  implementation  to  that  on  Flex. 
Instead  of  relying  on  Algol68  types  to  express  and  determine  the 
structure  of  a  graphical  object,  this  will  be  done  in  terms  of  the 
universal  TenlS  types.  To  minimise  the  inconvenience  to  users  who 
wish  to  transport  pictures  from  a  Flex  system  to  a  Tenl5  system,  the 
Tenl5  types  will  be  closely  related  to  the  Algol68  types. 
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Appendix 


System  Modules  for  use  with  Pictures 


coord_and_re  :Module  Keeps  VECI  and  RECT  the  Algol68  mode  for  the 
representation  of  displacement  vectors  and  rectangles. 


cursor_contr  :Module  Keeps  give  _cursor_  red  and  set_cursor_red 
for  reading  and  setting  the  cursor  position. 

|disc_to_gb_m  ! Module  Keeps  disc_to_gb  and  DTGRES  for  bringing 
Internal  graphical  blocks  off  disc. 

display_fram  : Module  Keeps  inner _  f rame  the  procedure  for  making 
internal  display  frames. 

disp_gb_m  : Module  Keeps  disp_gb  the  procedure  for  displaying 
internal  graphical  blocks. 

fold_m  :Module|  Keeps  fold  the  procedure  for  folding  an  index  into  an 
infernal  graphical  block. 

gblock_modes  :Module|  Keeps  the  mode  CBLOCK,  the  mode  of  the 
AIgbiBB  representation  of  graphical  blocks. 

(gb_to_disc_m  sModule!  Keeps  gb_to_disc  and  GBDRES,  for  putting 
internal  graphical  blocks  on  disc. 

|inner_read_m  :Module|  Keeps  inner  _read  a  procedure  for  reading  the 
puck/keyboard.  ' 

jline_styles  :Module|  Keeps  solid,  white,  dot,  dash,  dash_dot, 
long_dash  which  are  the  predefined  line  styles. 

make_display  iModu^  Keeps  make_display_  frame  which  is  a 

PROCfVECI  size,  INT  magIDlSPLA  YFRAME 

which  creates  a  REF[,]BOOL  of  size  size *mag  for  displaying  graphical 
blocks  at  a  magnification  of  mag,  then  delivering  a  display  frame  for 
the  area. 

^.displaced.  iModulej  Keeps  operators  ♦,  and  DISPLACED  for 
operating  on  displacement  vectors  and  rectangles. 

pic_draw_m  iModulej  Keeps  pic_draw_line,  draw_horiz,  draw_vert 
and  f ill _f rame  for  drawing  lines  and  filling  in  rectangles. 
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jpic._edit_gb_  :Module  Keeps  edit_gb  the  procedure  for  editing 
"internal  graphical  blocks . 

jpic_make_inp  sModule  Keeps  make_input  and  INPUTRES  for  making 
compiler  input  from  internal  graphical  blocks. 

pic_move_m  !Module!  Keeps  move  which  is  a 


PR0C(P1CTUREFRAME  pf.  RECT  r,  VEC1  amount ) VOID 

which,  within  the  picture  frame  pf  moves  the  display  in  the  rectangle 
r  by  the  displacement  amount. 


)pic_new_wind  ;Module  Keeps  new_ window  which  is  a 

PROC( PICTUREFRAME  pf. 

RECT  r, 

GBLOCK  gb. 

1NT  reason, 

PR0C(RECT)V01D  local_displaver 
)WINRES 

where  WINRES  «  STRUCT  (BOOL  altered. 

INT  reason, 

GBLOCK  gblock, 

1 /EC!  tl_  cursor, 

) 

Within  the  picture  frame  pf,  a  window  is  made  r,  in  which  is  edited 
gb  with  reason  reason.  The  local _displayer  is  the  displayer  of  an 
arbitrary  rectangle  within  the  picture  frame.  The  resulting  graphical 
block  is  delivered,  together  with  reason  of  leaving,  whether  it  has 
been  altered  and  the  cursor  position  when  it  was  left. 

|pic_operator  iModule,  Keeps  D1SPLA  YFRAME  and  PICTUREFRAME  and 
Ihe  Following  operators. 

SIZE  operates  on  a  display  frame  or  a  picture  frame 

delivering  the  size  of  the  picture  they  are 
framing. 

AREA  operates  on  a  display  frame  or  a  picture  frame, 

delivering  a  REF  [JBOOL  which  is  the  area  that 
the  picture  occupies. 


RESTRICT 


operates  on  a  displayframe  and  a  rectangle, 
restricting  the  area  of  the  displayframe  to  the 
rectangle. 


D1SPFRAME 

CLEAR 


EXPAND 


VISIBLERECT 


operates  on  a  picture  frame,  delivering  the 
display  frame  corresponding  to  the  picture  frame. 

operates  on  a  picture  frame  or  a  display  frame 
and  a  rectangle,  clearing  that  area  of  the  picture 
specified  by  the  rectangle. 

operates  on  a  picture  frame  and  a  vector- 
displacement,  requesting  an  expansion  of  the 
picture  frame  and  delivering  a  boolean  result 
depending  on  whether  the  expansion  was  allowed. 

operates  on  a  picture  frame  or  a  display  frame 
and  delivers  that  rectangle  of  the  picture  to 
which  it  is  possible  to  write(i.e.  in  the  case  of  a 
picture  frame  that  part  of  the  picture  in  the 
window ) 


[pic_reasons_  iModule,  Keeps  names  for  the  reason  and  action  codes. 


pic_scroll_m  rModule!  Keeps  pic^scroll  for  scrolling  the  document 
containing  a  picture  behind  the  window. 

fpicture_proc  .-Module  Keeps  find^proc  and  find_val  for  obtaining  the 
defining  procedures  of  a  picture  and  the  data  of  a  picture. 

read_m  :Module  Keeps  read  b  procedure  for  reading  the 
puck /keyboard. 

[read_puck_m  sModule' Keeps  read_puck  and  PUCKRES,  for  reading  the 
puck. 


[xlanrf_y_f ram  : Module'  Keeps  y_new_  frame,  x_r>ew_  frame  and 
xy_new_  frame  for  making  new  picture  frames. 
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